首页
后端开发
Delphi
导出cxGrid主从表记录至Excel的示例代码

导出cxGrid主从表记录至Excel的示例代码

21 次浏览 0 条评论
zip
zip

以下是导出cxGrid主从表记录到Excel的源码示例，供参考。

// 示例代码开始
procedure ExportCxGridToExcel;
var
  ExcelApp: Variant;
  Workbook: Variant;
  Sheet: Variant;
  i, j: Integer;
begin
  // 创建Excel应用程序对象
  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.Visible := False;

  // 添加一个新的工作簿
  Workbook := ExcelApp.Workbooks.Add;
  Sheet := Workbook.Worksheets[1];

  // 将数据从cxGrid导出到Excel
  for i := 0 to cxGrid1DBTableView1.DataController.RecordCount - 1 do
  begin
    for j := 0 to cxGrid1DBTableView1.DataController.ItemCount - 1 do
    begin
      Sheet.Cells[i + 1, j + 1] := cxGrid1DBTableView1.DataController.Values[i, j];
    end;
  end;

  // 保存Excel文件
  Workbook.SaveAs('C:ExportedData.xlsx');
  ExcelApp.Quit;
end;
// 示例代码结束
zip 文件大小：11.88MB