关于使用Excel.Application过程中出现的问题(100分)

procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp,WorkBook,WorkSheet:Variant;
begin
ExcelApp:=CreateOleObject('Excel.Application');
WorkBook:=CreateOleObject('Excel.Sheet');
ExcelApp.Visible:=true;
WorkBook:=ExcelApp.WorkBooks.Add;
workbook.worksheets[1].range['A4:A8'].Merge(True);----------这一句为何没有起到合并的作用
try
WorkBook.saveas('c:/1.xls');
WorkBook.close;
except //当存为一个已有的文档而又不覆盖时将
WorkBook.close; //产生一个例外
end;
ExcelApp.Quit;
ExcelApp:=Unassigned;
end;

workbook.worksheets[1].range['A4:A8'].Merge(True);
改为：
workbook.worksheets[1].range['A4:A8'].Merge;

.先选中.再合并.
记不清,不知道代码对不对
workbook.worksheets[1].range['A4:A8'].select;
workbook.selection.merge;

workbook.worksheets[1].range['A4:A8'].Merge

不用要True的参数

接受答案了.