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...[ 查看全文 ]