Lazarus Query转EXCEL功能
Lazarus Query转EXCEL功能
需要用到控件XMLXSDExporter1
procedure SaveToExcel(AQuery:TSQLQuery);
var
SaveDialog: TSaveDialog;
Ext:String;
begin
SaveDialog := TSaveDialog.Create(nil);
SaveDialog.Filter:='Excel 97-2003文件(*.xls)|*.XLS';
if SaveDialog.Execute and (trim(SaveDialog.FileName)<>'') then
begin
Ext := 'xls';
if UpperCase(Copy(SaveDialog.FileName,Length(SaveDialog.FileName)-2,3)) <> UpperCase(Ext) then
SaveDialog.FileName := SaveDialog.FileName + '.' + Ext;
if FileExists(SaveDialog.FileName) then
begin
if application.MessageBox('文件名已存在，是否覆盖？ ', '提示', MB_ICONASTERISK or MB_OKCANCEL)<>idok then
exit;
end;
XMLXSDExporter1.Dataset := AQuery;
XMLXSDExporter1.FileName := SaveDialog.FileName;
XMLXSDExporter1.Execute;
MessageBox( 0,'导出成功 ', '提示', MB_OK + MB_ICONINFORMATION)
end;
SaveDialog.Destroy;
end;