求救!delphi导出excel问题,高分送上(200分)

  • 主题发起人 主题发起人 小任
  • 开始时间 开始时间

小任

Unregistered / Unconfirmed
GUEST, unregistred user!
请问如何在delphi中实现excel的多单元格合计功能。即:sum(a1:b2)
 
ExcelApp, WorkBook: variant;
ARow, ACol: Integer;
// SUM()所在Cell
begin
Row, EndRow: Integer;
// SUM起迄行
ExcelApp := CreateOLEObject('Excel.Application');
WorkBook := ExcelApp.Workbooks.Add;
// =SUM($1:$4) 列ACol从1到4行合计
ExcelApp..Cells[ARow, ACol].Formula
:= '= SUM($' + IntToStr(begin
Row) + ':$' + IntToStr(EndRow) + ')';

 
mlzhou 兄弟,多谢
但对于不同的列怎么写比较好,比如:5列的2-5行合计
 
不是写的很清楚吗?
ACol代表代表列
begin
Row代表起始行
EndRow代表终止行
有什么问题吗?
 
多谢,200分送上
 
后退
顶部