delphi中如何调用excel97中的函数?(100分)

  • 主题发起人 主题发起人 7030
  • 开始时间 开始时间
7

7030

Unregistered / Unconfirmed
GUEST, unregistred user!
在做报表时,我想使用EXCEL中的某些函数,如SUM(),AVERAGE(),请问
如何在DELPHI中使用这些函数请高手帮忙,在此先谢了!!!!
 
ExcelApp, WorkBook: variant;
ARow, ACol: Integer; // SUM()所在Cell
BeginRow, EndRow: Integer; // SUM起迄行

ExcelApp := CreateOLEObject('Excel.Application');
WorkBook := ExcelApp.Workbooks.Add;
// =SUM($1:$4) 列ACol从1到4行合计
ExcelApp..Cells[ARow, ACol].Formula
:= '= SUM($' + IntToStr(BeginRow) + ':$' + IntToStr(EndRow) + ')';
 
接受答案了.
 
后退
顶部