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

临朐县辛寨镇杨益牛肉板面馆 發表於 2019-8-28 11:16:00

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

.xls格式导出，uses中添加cxGridExportLink
代码如下：
<div class="cnblogs_code">
<pre> 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;</pre>
</div>
.csv格式导出，uses中添加cxGridExportLink
代码如下：
<div class="cnblogs_code">
<pre>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;</pre>
</div>
 
.xlsx格式无法通过cxGrid现有封装的方法实现，可以通过.xls/.csv格式转换成.xlsx格式。
代码如下：
<div class="cnblogs_code">
<pre> 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;</pre>
</div>
 
<div id="AllanboltSignature">
<p id="PSignature" style="padding: 10px 10px 10px 60px; background: url("https://images.cnblogs.com/cnblogs_com/jeremywucnblog/1607637/o_191206011825obs.png") 1% no-repeat rgba(229, 241, 244, 1); font-family: 微软雅黑; font-size: 11px; border: 1px dashed rgba(224, 224, 224, 1)">  作者：Jeremy.Wu   出处：https://www.cnblogs.com/jeremywucnblog/
   本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。
 

</div> 
来源：https://www.cnblogs.com/jeremywucnblog/p/11422905.html

頁: [1]

琼殿技术论坛's Archiver

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