这个不使用OLE方式操作Excel时无法实现的。
如:
ExcelApp: OleVariant;
Workbook: OleVariant;
Sheet: OleVariant;
begin
ExcelApp := CreateOleObject("Excel.Application");
Workbook := ExcelApp.Workbooks.Open("C:\test.xls");
Sheet := Workbook.ActiveSheet;
...
Workbook.Save;
ExcelApp.Quit;
end;
使用Sheet对象可以操作加上大标题、边框等,操作方式与vba一样,可以自己录宏或查看Excel的VBA帮助(Delphi中自动化方法不会有智能提示,数组的操作方式可能不同,需要多次调试)
fdf