写入代码.txt

将SQL DBGRID数据导出报表为EXCEL

  if  dlg2.Execute then

       begin

          DataSetExportExcel.ExportExcelFile(dlg2.Filename,true,dbgrid1);

          showmessage('导出完成') ;

       end;