很简单 ，关于 Grid的内容导出 Excel！谢谢指点！！(50分)

Grid的内容和标题都是固定的。想导出到Excel中有几个地方不会写，高手帮忙指点一下！
1.怎么进行上下列的合并呢 ？
比如一个 Cells是[1,1]另一个是[2,1]，用Range[Cell1, Cell2].Merge(True)没法合并，这个好像只能合并一行里面的。
2.对于合并好的Cells怎么让它里面的内容居中？

自己顶

我有3年没弄这玩意儿了.这意儿当初我是按需要改此控件的源码的.多看看源码.

弄错....不是这个控件...

顶

顶

procedure TMainFrm.AutoWrapAndMerge(Row,Column: String);//自动会车并且合并
begin
ExcelApp.ActiveSheet.Range[Row,Column].select;
ExcelApp.ActiveSheet.Range[Row,Column].HorizontalAlignment:=1;//xlGeneral = 1;
ExcelApp.ActiveSheet.Range[Row,Column].VerticalAlignment:=$FFFFEFF4;//xlCenter = $FFFFEFF4;
ExcelApp.ActiveSheet.Range[Row,Column].WrapText:=true;
ExcelApp.ActiveSheet.Range[Row,Column].MergeCells:=true;
end;
procedure TMainFrm.SetRangemerge(Col1, Col2: String);//合并并且居中
begin
ExcelApp.ActiveSheet.Range[Col1,Col2].select;
ExcelApp.ActiveSheet.Range[Col1,Col2].HorizontalAlignment:=$FFFFEFF4;//xlCenter表示
ExcelApp.ActiveSheet.Range[Col1,Col2].VerticalAlignment:=$FFFFEFF4;
ExcelApp.ActiveSheet.Range[Col1,Col2].WrapText:=true;
ExcelApp.ActiveSheet.Range[Col1,Col2].MergeCells:=true;
ExcelApp.ActiveSheet.Range[Col1,Col2].Merge;
end;