delphiado导出excel

delphi使用ado导出excel

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

delphi使用ado导出excel(2)

var FileName, s: String; i,n:integer; excelapp:Variant; Temp_Worksheet: _WorkSheet;begin excelapp := CreateOleObject('excel.application'); excelapp.Visible := true; excelapp.Caption := '临床路径每天...