该函数展示了如何使用Delphi调用Excel，读取模板文件，修改数据后保存为新的Excel文件，并最终显示出来。通过遍历查询结果并填充到Excel单元格中，实现了从数据库查询结果到Excel报表的转换。
目的：将查询结果输出到excel，并打开excel
function TFrmDBCZ_Report_DLBBFK.ProcessExcel(date:
string
): Boolean;
var
xlapp,MySheet,MyBooks:Variant;
i,j:Integer;
filename,savefile :
string
;
begin
filename :
=
ExtractFilePath(Application.ExeName)
+
'
报表模版分矿转供电量明细表.xls
'
;
savefile :
=
ExtractFilePath(Application.ExeName)
+
'
报表'+copy(date,1,4)+
'
年
'
+copy(date
function TFrmDBCZ_Report_DLBBFK.ProcessExcel(date:
string
): Boolean;var xlapp,MySheet,MyBooks:Variant; i,j:Integer; filename,savefile :
string
;begin filename :
=
ExtractFilePath(Application.ExeName)
+
'
报表模版分矿转供电量明细表.xls
'
; savefile :
=
ExtractFilePath(Application.ExeName)
+
'
报表'+copy(date,1,4)+
'
年
'
+copy(date
最低0.47元/天 解锁文章
扫一扫
850
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
