首页 相关文章 从DBGrid,StringGrid导出Excel

从DBGrid,StringGrid导出Excel

  procedure TDM.CopyDbDataToExcel(Target: TDBGridEh;mb,FileName: string);
  var
  iCount, jCount: Integer;
  XLApp: Variant;
  Sheet: Variant;
  begin
  Screen.Cursor := crHourGlass;
  if not VarIsEmpty(XLApp) then
  begin
   XLApp.DisplayAlerts := False;
   XLApp.Quit;
   VarClear(XLApp);
  end;
  //--------------------------选择模板------
  // CopyFile(pChar(Trim(ExtractFilePath(Application.ExeName))+mb+'.xls'),pChar(FileName+'1.xls'),false);
  //------------------------
  //通过ol...[ 查看全文 ]

2016-02-19 标签:

从DBGrid,StringGrid导出Excel的相关文章

手机页面
收藏网站 回到头部