Delphi 动态导出DBGrid To Excel

最新推荐文章于 2023-12-28 13:56:02 发布

trassion

最新推荐文章于 2023-12-28 13:56:02 发布

阅读量5.8k

点赞数 1

分类专栏： delphi 文章标签： delphi excel microsoft integer string 存储

本文链接：https://blog.csdn.net/Trassion/article/details/7283055

版权

本文提供了一个通用的Delphi程序，能够将TDBGRID组件中的数据导出到Excel文件中，包括每行的标题，并且支持自定义Excel列宽和字体颜色。

摘要由CSDN通过智能技术生成

经常会遇到DBGRID 转入到EXCEL中的情况，所以写了个通用程序，希望对大家有用。

procedure TDM.DBGridExport(GRID:TDBGRID);

var       //DBGRID控件内容存储到EXCEL 只有第一行有标题
    EclApp:Variant;
    XlsFileName:String;
    sh:olevariant;
    i,j:integer;
    s:string;
    savedailog:TSaveDialog;
begin
   savedailog:=TSaveDialog.Create(Self);
   savedailog.Filter:='Excel files (*.xls)|*.XlS';
   if savedailog.Execute then begin
        xlsfilename:=savedailog.FileName;
        savedailog.Free;
     end
   else begin
      savedailog.Free;
      exit;
   end;
   try
      eclapp:=createOleObject('Excel.Application');
      sh:=CreateOleObject('Excel.Sheet');
   except
      showmessage('您的机器里未安装Microsoft Excel。');
      exit;
   end;
   try