dbgrideh OLE方式 导出 EXCEL

您好，如果您使用的是 Delphi 的 TDBGrid 组件，可以使用以下代码将数据导出为 Excel 文件：

uses
  ComObj, DB, DBGrids;

procedure ExportToExcel(DBGrid: TDBGrid);
var
  Excel, Sheet: Variant;
  Col, Row, i: Integer;
begin
  Excel := CreateOleObject('Excel.Application');
  Excel.Workbooks.Add;
  Sheet := Excel.ActiveSheet;

  // 导出表格标题
  for i := 0 to DBGrid.Columns.Count - 1 do
    Sheet.Cells[1, i + 1] := DBGrid.Columns[i].Title.Caption;

  // 导出表格数据
  Row := 2;
  with DBGrid.DataSource.DataSet do
  begin
    DisableControls;
    First;
    while not Eof do
    begin
      for Col := 0 to DBGrid.Columns.Count - 1 do
        Sheet.Cells[Row, Col + 1] := DBGrid.Fields[Col].AsString;
      Inc(Row);
      Next;
    end;
    EnableControls;
  end;

  // 保存 Excel 文件
  Excel.ActiveWorkbook.SaveAs('D:\test.xls');
  Excel.Quit;
end;

在上面的代码中，我们首先使用 CreateOleObject 创建 Excel 对象，然后调用 Workbooks.Add 方法创建一个新的工作簿，再通过 ActiveSheet 属性获取当前活动的工作表。接着我们将表格标题和数据分别填充到 Excel 中，最后通过 ActiveWorkbook.SaveAs 方法将 Excel 文件保存在指定路径下。

需要注意的是，这里使用的是旧版的 OLE 技术，因此需要在项目中添加 ComObj 单元。同时还需要保证计算机中已经安装了 Microsoft Excel 软件，否则可能会导致导出失败。

希望能够帮到您！