用dbgird导出execl表

最新推荐文章于 2022-10-25 14:51:29 发布

Dcdu

最新推荐文章于 2022-10-25 14:51:29 发布

阅读量695

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi 文章标签： excel 工作

本文链接：https://blog.youkuaiyun.com/cdlff/article/details/3347427

delphi 专栏收录该内容

25 篇文章

订阅专栏

本文介绍了一个使用Delphi将数据库内容导出到Excel文件的示例代码。该过程涉及创建Excel应用程序对象，添加工作簿，并填充数据。具体步骤包括获取数据集中的字段数和记录数，然后将字段名和数据逐行写入Excel中。

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

users ComObj

procedure saveToExcel();
var
   Ole:variant;
   Ac,Ar,a,b:integer;
begin
   if not Form12.ADOQuery2.Active then
   begin
      ShowMessage('数据集没有打开');
      Exit;
   end;
Try
   Ole:=createoleobject('Excel.Application'); //创建OLE对象
Except
   Showmessage('Excel没有安装或不正确');
   Exit;
end;

begin
   Ole.workbooks.add;    //添加工作薄
   Form12.ADOQuery2.First; //将数据集中的数据导入Excel表格
   Form12.ADOQuery2.DisableControls;
   Ac:=Form12.ADOQuery2.FieldCount;
   Ar:=Form12.ADOQuery2.RecordCount;
for a:=1 to Ac do //将数据表中的数据导入表格
   Ole.Cells[1,a]:=Form12.DBGrid1.Fields[a-1].FieldName;
   for a:=2 to Ar+1 do
   begin
       for b:=0 to Ac-1 do
       Ole.cells[a,b+1]:=Form12.DBGrid1.Fields[b].AsString;
       Form12.ADOQuery2.Next;
    end;
   Ole.cells[Ar+2,1] := '满足条件记录的总数为：'+inttostr(Form12.ADOQuery2.RecordCount)+'条';
   application.MessageBox('数据导出完成!','提示',mb_ok+mb_iconinformation);
   Ole.visible := true;
end;
end;