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)) <= 0 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, 51);
      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/
  本文版權歸作者和博客園共有，歡迎轉載，但未經作者同意必須保留此段聲明，且在文章頁面明顯位置給出原文連接，否則保留追究法律責任的權利。