以cxgrid為例 use cxGridExportLink; procedure TWKO_PLAN_DAY_F.cxButton2Click(Sender: TObject); begin if SaveDialog1.Execute then begin ExportGridToExcel(SaveDialog1.FileName,cxGrid1,True,True,True,'xls'); MessageDlg('導出成功',mtInformation,[mbOK],0); end; end;
use cxGridExportLink;
procedure TWKO_PLAN_DAY_F.cxButton2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
ExportGridToExcel(SaveDialog1.FileName,cxGrid1,True,True,True,'xls');
MessageDlg('導出成功',mtInformation,[mbOK],0);
end;
end;