dbgrideh OLE方法 导出 EXCEL 完整源码
时间: 2024-02-21 14:56:46 浏览: 23
下面是使用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中包含需要导出的数据。