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

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

代码如下：

 1 function SaveToExcel(gridMain: TcxGrid; FileName: string): string;
 2 var
 3     SaveFileDialog: TSaveDialog;
 4 begin
 5     //示例：SaveToExcel(dxDBGrid1,'默认文件名');
 6     SaveFileDialog := TSaveDialog.Create(nil);
 7     SaveFileDialog.FileName := FileName;
 8     SaveFileDialog.Filter := '*.xls';
 9     if SaveFileDialog.Execute then
10     begin
11         if pos('.XLS', UpperCase(SaveFileDialog.FileName)) <= 0 then
12             SaveFileDialog.FileName := SaveFileDialog.FileName + '.XLS';
13         ExportGridToExcel(SaveFileDialog.FileName, gridMain);
14         ShowMessage('数据已成功导出到您指定的目录中');
15     end;
16     Result := SaveFileDialog.FileName;
17     SaveFileDialog.Free;
18 end;

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

代码如下：

1 begin
2     Screen.Cursor := crSQLWait;
3     FileNameCache := FileName + FormatDateTime('YYYYMMDD', NOW);
4     FileName := FileNameCache + '.CSV';
5     FilePathCache := 'C:/TMP/' + FileNameCache;
6     FilePath := FilePathCache + '.CSV';
7     ExportGridToText(FilePathCache + '.XLS', cxGrid_M, True, True, ',', '', '', 'CSV');
8     Screen.Cursor := crDefault;
9 end;

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

代码如下：

 1 procedure Saveto_xlsx(tn: string; fn: string);
 2 var
 3    ExcelApp, Excelbook, ExcelChart: OleVariant;
 4 //tn:需要转换格式的源文件路径
 5 //fn:转换之后的文件存储路径
 6 begin
 7    try
 8       ExcelApp := CreateOleObject('Excel.Application');
 9       ExcelApp.Visible := True;//False
10       ExcelApp.Caption := '应用程序调用 Microsoft Excel';
11       ExcelApp.Application.DisplayAlerts := False;
12       ExcelApp.WorkBooks.Open(tn);
13       ExcelApp.ActiveWorkbook.SaveAs(fn, 51);
14       ExcelApp.Application.Quit;
15       ExcelApp.Application.DisplayAlerts := True;
16       Excelapp := Null;
17    except
18       Application.Messagebox('Excel 没有安装!', 'Hello', MB_ICONERROR + mb_Ok);
19       Abort;
20    end;
21 end;