在DELPHI中如何实现对EXCEL表格的合并与添加边框的操作(100分)

希望大家于与指点，谢谢

用Excel录制宏,然后看看宏就知道

一点代码可以参考一下。
procedure TfrmExport.ExportToExcel;
var
ExcelApp : Variant;
R : OleVariant;
C : OleVariant;
I : Integer;
Cell1,Cell2 : OleVariant;
begin
ExcelApp := CreateOleObject('Excel.Application');
try
ExcelApp.WorkBooks.Add(1);
ExcelApp.ActiveSheet.Name := cmbProject.Items[cmbProject.ItemIndex];
R := 2;
C := 2;
ExcelApp.ActiveSheet.Cells[R,C].Value := '项目信息';
ExcelApp.ActiveSheet.Cells[R,C].Font.Size := 12;
ExcelApp.ActiveSheet.Cells[R,C].Font.Bold := True;
Cell1 := ExcelApp.ActiveSheet.Cells[R,C];
Cell2 := ExcelApp.ActiveSheet.Cells[R,C+frmMain.adsProject.FieldCount-1];
ExcelApp.ActiveSheet.Range[Cell1,Cell2].Merge;//合并单元格
ExcelApp.ActiveSheet.Cells[R,C].Font.Size := 9;
ExcelApp.ActiveSheet.Cells[R,C].Interior.ColorIndex := 43;
ExcelApp.ActiveSheet.Cells[R,C].VerticalAlignment := xlVAlignCenter;
ExcelApp.ActiveSheet.Cells[R,C].HorizontalAlignment := xlHAlignCenter;
ExcelApp.ActiveSheet.Cells[R,C].MergeArea.Borders.LineStyle := xlContinuous;//设置边框
Inc(R);
另外如果如果某一区域都是同样格式，尽量一起设置这个区域的格式，效率比
一个一个单元格设置格式要提高许多。

还是建议使用EXCEL的宏功能，先记录下来，然后看宏代码就可以了。

多人接受答案了。