DBGRID 使用OLE方法 导出 EXCEL

DBGrid 是 Delphi 中常用的数据显示控件，如果需要将 DBGrid 中的数据导出到 Excel 文件中，也可以使用 OLE 技术来实现。下面是一个简单的示例代码：

var
  ExcelApp: Variant; // 声明 Excel 应用程序对象
  Sheet: Variant; // 声明工作表对象
  i, j: Integer;
begin
  ExcelApp := CreateOleObject('Excel.Application'); // 创建 Excel 应用程序对象
  ExcelApp.Workbooks.Add(1); // 添加一个工作簿
  Sheet := ExcelApp.Workbooks[1].Worksheets[1]; // 获取第一个工作表
  // 写入表头
  for j := 0 to DBGrid1.Columns.Count - 1 do
  begin
    Sheet.Cells[1, j + 1].Value := DBGrid1.Columns[j].Title.Caption;
  end;
  // 写入数据
  for i := 0 to DBGrid1.DataSource.DataSet.RecordCount - 1 do
  begin
    DBGrid1.DataSource.DataSet.RecNo := i + 1;
    for j := 0 to DBGrid1.Columns.Count - 1 do
    begin
      Sheet.Cells[i + 2, j + 1].Value := DBGrid1.Fields[j].AsString;
    end;
  end;
  ExcelApp.Workbooks[1].SaveAs('C:\Test.xlsx'); // 将工作簿另存为 Test.xlsx 文件
  ExcelApp.Quit; // 关闭 Excel 应用程序
end;

在这个示例中，我们首先通过 `CreateOleObject` 函数创建了一个 Excel 应用程序对象，并通过 `Add` 方法添加了一个工作簿。然后，我们通过 `Worksheets` 属性获取第一个工作表，并将 DBGrid 中的表头和数据写入 Excel 文件中。最后，我们通过 `SaveAs` 方法将工作簿另存为指定的文件，并通过 `Quit` 方法关闭 Excel 应用程序。

需要注意的是，在使用 DBGrid 导出数据时，我们需要先将当前记录移到第一条记录（`DBGrid1.DataSource.DataSet.RecNo := 1;`），然后再逐条读取数据写入 Excel 文件。此外，如果 DBGrid 显示的是一个 SQL 查询的结果集，需要先将该结果集转换为一个独立的数据集，否则可能会出现写入数据不完整的情况。