Delphi - cxGrid内容xlsx、xls、csv格式导出

.xls格式导出，uses中添加cxGridExportLink

代码如下：

 function SaveToExcel(gridMain: TcxGrid; FileName: string): string;
 var
     SaveFileDialog: TSaveDialog;
 begin
     //示例：SaveToExcel(dxDBGrid1,'默认文件名');
     SaveFileDialog := TSaveDialog.Create(nil);
     SaveFileDialog.FileName := FileName;
     SaveFileDialog.Filter := '*.xls';
     if SaveFileDialog.Execute then
     begin
         if pos('.XLS', UpperCase(SaveFileDialog.FileName)) <=  then
             SaveFileDialog.FileName := SaveFileDialog.FileName + '.XLS';
         ExportGridToExcel(SaveFileDialog.FileName, gridMain);
         ShowMessage('数据已成功导出到您指定的目录中');
     end;
     Result := SaveFileDialog.FileName;
     SaveFileDialog.Free;
 end;

.csv格式导出，uses中添加cxGridExportLink

代码如下：

 begin
     Screen.Cursor := crSQLWait;
     FileNameCache := FileName + FormatDateTime('YYYYMMDD', NOW);
     FileName := FileNameCache + '.CSV';
     FilePathCache := 'C:/TMP/' + FileNameCache;
     FilePath := FilePathCache + '.CSV';
     ExportGridToText(FilePathCache + '.XLS', cxGrid_M, True, True, ',', '', '', 'CSV');
     Screen.Cursor := crDefault;
 end;

.xlsx格式无法通过cxGrid现有封装的方法实现，可以通过.xls/.csv格式转换成.xlsx格式。

代码如下：

 procedure Saveto_xlsx(tn: string; fn: string);
 var
    ExcelApp, Excelbook, ExcelChart: OleVariant;
 //tn:需要转换格式的源文件路径
 //fn:转换之后的文件存储路径
 begin
    try
       ExcelApp := CreateOleObject('Excel.Application');
       ExcelApp.Visible := True;//False
       ExcelApp.Caption := '应用程序调用 Microsoft Excel';
       ExcelApp.Application.DisplayAlerts := False;
       ExcelApp.WorkBooks.Open(tn);
       ExcelApp.ActiveWorkbook.SaveAs(fn, );
       ExcelApp.Application.Quit;
       ExcelApp.Application.DisplayAlerts := True;
       Excelapp := Null;
    except
       Application.Messagebox('Excel 没有安装!', 'Hello', MB_ICONERROR + mb_Ok);
       Abort;
    end;
 end;

作者：Jeremy.Wu
  出处：https://www.cnblogs.com/jeremywucnblog/

  本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。