关于数据导出 Excel ，有多列合并为一列的问题

[wjk]

各位朋友：
请帮忙，我在导出数据到 Excel 时，遇到一个问题：多列合并为一列。
请问如何解决。
我的代码：

procedure TForm2.BitBtn5Click(Sender: TObject);
var
eclApp,WorkBook,ColumnRange:Variant;
//声明为OLE Automation 对象
xlsFileName:string; i,j:integer ;
begin
try
try
//创建OLE对象Excel Application与 WorkBook
eclApp:=CreateOleObject('Excel.Application');
WorkBook:=CreateOleobject('Excel.Sheet');
except
ShowMessage('您的机器里未安装Microsoft Excel。');
Exit;
end;
workBook:=eclApp.workBooks.Add;
eclApp.Range[1,3].Merge() ; // 合并1，2，3列
eclApp.Cells(1 , 1):='1 wwwwwwwwwwwwwww' ;

。。。。。。。
finally
eclApp.Quit;
//释放VARIANT变量
eclApp:=Unassigned;
Screen.Cursor := crDefault;
end;
--------------------------------------------------------------------
eclApp.Range[1,3].Merge() ; // 合并1，2，3列
eclApp.Cells(1 , 1):='1 wwwwwwwwwwwwwww' ;
会出错
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
如何修改。

[esu]

aSheet.Range['A1','B2'].MergeCells:=True;

[WWWWA]

var qzw1: Variant;
QZW1:=excelworksheet2.Range['A1','e1'];
QZW1.MERGE;
我用的是SERVER组件，你参考一下

[zhouxiaochenchina]

aSheet.Range['A1：B2'].MergeCells:=True;

[tongki]

导出的数据放在合并格中的第一个单元格中即可。