delphi 使用OLE方法 导出 EXCEL

使用 Delphi 导出 Excel 可以通过 OLE 技术来实现。下面是一个简单的示例代码：

var
  ExcelApp: Variant; // 声明 Excel 应用程序对象
begin
  ExcelApp := CreateOleObject('Excel.Application'); // 创建 Excel 应用程序对象
  ExcelApp.Workbooks.Add(1); // 添加一个工作簿
  ExcelApp.Workbooks[1].SaveAs('C:\Test.xlsx'); // 将工作簿另存为 Test.xlsx 文件
  ExcelApp.Quit; // 关闭 Excel 应用程序
end;

在这个示例中，我们首先通过 `CreateOleObject` 函数创建了一个 Excel 应用程序对象，并通过 `Add` 方法添加了一个工作簿。然后，我们使用 `SaveAs` 方法将工作簿另存为指定的文件。最后，我们通过 `Quit` 方法关闭 Excel 应用程序。

当然，在实际使用中，我们还可以对工作簿进行更多的操作，例如添加工作表、写入数据等等。需要注意的是，在使用完 Excel 应用程序对象后，一定要调用 `Quit` 方法关闭它，否则可能会导致 Excel 进程无法正常退出。

相关问题

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 查询的结果集，需要先将该结果集转换为一个独立的数据集，否则可能会出现写入数据不完整的情况。

dbgrideh OLE方法 导出 EXCEL 完整源码

下面是使用dbgrideh中的OLE方法导出到Excel的完整源码，希望能帮到您：

uses
  ComObj, Grids;

procedure ExportToExcel(Grid: TDBGridEh);
var
  Excel, Sheet: Variant;
  i, j: Integer;
begin
  Excel := CreateOleObject('Excel.Application');
  Excel.Visible := True;
  Sheet := Excel.Workbooks.Add.Sheets[1];

  //写入标题
  for i := 0 to Grid.Columns.Count - 1 do
  begin
    Sheet.Cells[1, i + 1].Value := Grid.Columns[i].Title.Caption;
  end;

  //写入数据
  for i := 0 to Grid.DataSource.DataSet.RecordCount - 1 do
  begin
    Grid.DataSource.DataSet.RecNo := i + 1;
    for j := 0 to Grid.Columns.Count - 1 do
    begin
      Sheet.Cells[i + 2, j + 1].Value := Grid.Fields[j].AsString;
    end;
  end;

  //自动调整列宽
  Sheet.Columns.AutoFit;
end;

使用方法：
将上述代码复制到你的Delphi项目中，然后在需要导出的地方调用ExportToExcel函数即可，例如：

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExportToExcel(DBGridEh1);
end;

其中DBGridEh1是一个TDBGridEh控件，它连接了一个数据源，数据源的DataSet中包含需要导出的数据。