delphi使用导出excel

delphi使用ado导出excel

需要的头文件Comobj,shellAPI,Excel2000,添加保存对话框 object SaveDialogExport:TSaveDialog-var FileName,s:String;xlapp:TexcelApplication;xlWorkbook:TExcelWorkbook;xlWorksheet:TExcelWorksheet;begin/导出 if Self.cx_critical...

delphi使用ado导出excel(2)

导出 if Self.qry_pat.RecordCount=0 then begin s:='没有导出数据.';Application.MessageBox(PChar(s),PChar(Application.Title),MB_OK or MB_ICONERROR);Exit;end;Application.ProcessMessages;excelapp.Range['a1','a'+inttostr(qry_pat...