delphi 调用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,6,2)+'月分矿转供电量明细表.xls';


if FileExists(savefile) then


begin


if not DeleteFile(savefile) then


begin


ShowMessage('文件'+savefile+'可能被占用，请关闭文件重试');


Result := False;


Exit;


end;


end;


xlapp:= CreateOleObject('Excel.Application');


xlapp.Workbooks.Open(filename);


MyBooks := xlapp.workbooks[1];


MySheet := xlapp.Workbooks[1].WorkSheets['电量报表(分矿)'] ;


qry1.Close;


qry1.Parameters.ParamByName('lb').Value := '汇总';


qry1.Open;


j :=4;


for j := 4 to 12 do


begin


for i := 5 to 13 do


begin


MySheet.Cells[j,i] := qry1.Fields[i+1].AsInteger;


end;


qry1.Next;


end;


mybooks.saved := True;//如果要关闭某个已更改的工作簿，但又不想保存它或者不想出现保存提示


mybooks.saveas(savefile);


MyBooks.close;


xlapp.quit;


xlapp:= CreateOleObject('Excel.Application');


xlapp.Workbooks.Open(savefile);


xlapp.visible := True;


//OleContainer1.CreateObjectFromFile(savefile,false);


//OleContainer1.DoVerb(0);




Result := True;


end;