delphi使用ado导出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)

while not qry_pat.eof do begin excelapp.cells.Item[n,1]:=qry_pat.Fields[1].AsString;excelapp.Cells.Item[n,1].Font.name:='宋体';excelapp.Cells.Item[n,1].Font.bold:=true;excelapp.Cells.Item[n,1].orientation:=xlhorizontal;...