目的:将查询结果输出到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)+ ' 年
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)+ ' 年