Excel版本改变引发的合并单元格问题

Question

Excel 2003 11.1712.111 升级到 Excel 2003 11.8169.8221用Delphi 6 开发的一个Excel导出程序，在Excel 2003 11.1712.111环境还导出合并单元格正常，但升级到 Excel 2003 11.8169.8221 后，就无法合并单元格代码如果下
var
  ExcelApp, WorkBook, WSheet: Variant;
begin  ExcelApp := CreateOleObject('Excel.Application');
  WorkBook := CreateOleObject('Excel.Sheet');
  try
    WorkBook := ExcelApp.WorkBooks.open(FileName);
    WSheet := WorkBook.Sheets[1];
    ExcelApp.ActiveWindow.DisplayGridlines := False;
     //按行合并内容相同的单元
    WSheet.Range['A1:A2'].Merge;    WorkBook.Save;
    Application.ProcessMessages;
  finally  
    workBook.Saved   :=   True;
    WorkBook.Close;
    ExcelApp.WorkBooks.Close;
    ExcelApp.Quit;
    ExcelApp := Unassigned;
  end; 

Answer 1

expression.Merge(Across)
expression      必需。该表达式返回一个 Range 对象。Across      Variant 类型，可选。如果该值为 True，则将指定区域内的每一行合并为一个合并单元格。默认值为 False。试试：
WSheet.Range['A1:A2'].Merge(True);