エクスポート.xls形式、cxGridExportLinkを追加使用しています
コードは以下の通りであります：
1つの 関数 SaveToExcel（gridMain：TcxGrid;ファイル名：文字列）：文字列。 2 VAR 3 SaveFileDialog：TSaveDialog。 4 開始 5 // 示例：SaveToExcel（dxDBGrid1、 '默认文件名'）。 6 SaveFileDialog：= TSaveDialog。作成（ゼロ）。 7 SaveFileDialog.FileName：= ファイル名。 8 SaveFileDialog.Filter：= ' * .XLS ' 。 9 場合 SaveFileDialog.Executeはその後 10 始まる 11を 場合（POS' .XLS '、大文字（SaveFileDialog.FileName））<= 0 、次いで 12は SaveFileDialog.FileName：+ = SaveFileDialog.FileName ' .XLS ' ; 13である ExportGridToExcel（SaveFileDialog.FileName、gridMain）; 14 ShowMessage（' データが正常にエクスポートされていますあなたはディレクトリを指定" ）; 15 終了; 16 結果：= SaveFileDialog.FileName; 17。 SaveFileDialog.Free; 18は 終了。
エクスポート.csv形式は、cxGridExportLinkを追加使用しています
コードは以下の通りであります：
1 始まる 2 Screen.Cursorを：= crSQLWait。 3 FileNameCache：=ファイル名+ FormatDateTime（' YYYYMMDD ' 、NOW）。 4 ファイル名：= FileNameCache + ' .CSV ' 。 5 FilePathCache：= ' C：/ TMP / ' + FileNameCache。 6 ファイルパス：= FilePathCache + ' .CSV ' 。 7 ExportGridToText（FilePathCache + ' .XLS '、cxGrid_M、真の、真の、' '、''、'' 、' CSV ' ）; 8 Screen.Cursor：= crDefault。 9 端 ;
.xlsx形式フォーマットは、従来の方法cxGridパッケージによって達成することができない、それは形式への.xls / .xlsx形式の.csvフォーマットで変換することができます。
コードは以下の通りであります：
1 手順 Saveto_xlsx（TN：文字列 ;のFn：文字列）; 2 VAR 3。 ExcelApp、Excelbook、ExcelChart：OleVariant; 4。 // TN：ソース・ファイル・パス・フォーマットを変換する必要 5。 // のFn：ファイルストレージパス変換後 6。 始める 7。 試し 8。 ExcelApp：= CreateOleObject（' まずExcel.Application ' ）; 9。 ExcelApp.Visible：=真; // 偽 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：= 真; 16 Excelapp：= NULL; 17 を除く 18 Application.Messagebox（' 安装エクセル没有！'、' こんにちは'、MB_ICONERROR + MB_OK）; 19 中止; 20 端部、 21 端部、