Delphi 将DBGrid中的内容导出到Excel

最新推荐文章于 2024-11-05 17:27:54 发布

原创最新推荐文章于 2024-11-05 17:27:54 发布 · 947 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#Delphi #DBGrid导出Excel

Delphi 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个使用Delphi将DBGrid组件中的数据导出到Excel文件的方法。通过创建OLE对象并利用Excel应用程序的API，代码实现了数据的读取、写入及保存过程，最终生成一个包含DBGrid数据的Excel文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Delphi 将DBGrid中的内容导出到Excel

function Tfbalance.ExportDBGrid(DBGrid: TDBGrid; SheetName: string): boolean;//直接保存，不显示EXCEL
var
c, r, i, j: integer;
app: Olevariant;
TempFileName, ResultFileName: string;
begin
try
result := True;
app := CreateOLEObject(‘Excel.application’);
// app.WorkBooks.Add(xlWBatWorkSheet);
except
Application.MessageBox(‘Excel没有正确安装！’,‘警告’,MB_OK);
result := False;
exit;
end;
SaveDialog1.DefaultExt := ‘xls’;
SaveDialog1.FileName := SheetName;
if SaveDialog1.Execute then
TempFileName := SaveDialog1.FileName
else
Exit;
app.Workbooks.add;
app.Visible := false;
Screen.Cursor := crHourGlass;
DBGrid.DataSource.DataSet.First;
c := DBGrid.DataSource.DataSet.FieldCount;
r := DBGrid.DataSource.DataSet.RecordCount;
Application.ProcessMessages;
for i := 0 to c - 1 do
app.cells(1, 1 + i) := DBGrid.DataSource.DataSet.Fields[i].DisplayLabel;
for j := 1 to r do
begin
for i := 0 to c - 1 do
app.cells(j + 1, 1 + i) := DBGrid.DataSource.DataSet.Fields[i].AsString;
DBGrid.DataSource.DataSet.Next;
end;
ResultFileName := TempFileName;
if ResultFileName = ‘’ then
ResultFileName := ‘数据导出’;
if FileExists(TempFileName) then
DeleteFile(TempFileName);
app.Activeworkbook.saveas(TempFileName);
app.Activeworkbook.close(false);
app.quit;
app := unassigned;
end;

procedure Tfbalance.Image6Click(Sender: TObject);
begin
try
Screen.Cursor := crHourGlass;
ExportDBGrid(DBGrid2, ‘导出数据’); //暂时将导出的文件名称为“导出数据”（的execl文件）
finally
Screen.Cursor := crDefault;
end;
end;