DBGridEh1 but1_Click /// 导出数据xls 到指定文件夹_修改

Jack·高峰

•

• 2017-11-26 10:56 • 2211 阅读

function DBGridEhToXlsx(fileneme: string; controlneme: TDBGridEh; SaveDialogname: TSaveDialog): string; /// 导出数据xls 到指定文件夹 var Path, Route: string; //SaveDialogname:TSaveDialog; begin //目录...

function DBGridEhToXlsx(fileneme: string; controlneme: TDBGridEh; SaveDialogname: TSaveDialog): string;
/// 导出数据xls 到指定文件夹
var
  Path, Route: string;
  //SaveDialogname:TSaveDialog;
begin
  //目录
  GetDir(0, Path);
  //文件
  //SaveDialogname.FileName := Trim(fileneme) + '_' + FormatDateTime('yyyymmddhhnn', now());
  SaveDialogname.FileName := Trim(fileneme) + '_' + FormatDateTime('yyyymmddhhnn', now()) + '.xls';
  //保存到指定文件夹
  Route := Path + '\C_Data\' + trim(CurUserID) + '\';
  //判断路径是否存在
  if not FileExists(Route) then
  begin
  //创建路径
    ForceDirectories(Route);
    {2017112519:06:22 修改导出数据函数
    ExportDBGridEhToXlsx(controlneme, Path + '\C_Data\DS\' + SaveDialogname.FileName, []);    }
    Screen.Cursor := crHourGlass;
    SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, controlneme, Route + SaveDialogname.FileName, true);
    Screen.Cursor := crDefault;
  //提示是否打开文件
    if MessageDlg('文件已保存！'#13'是否打开 "' + SaveDialogname.FileName + '" 文件?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
  //判断文件是否存在
      if FileExists(PChar(Route + SaveDialogname.FileName)) then
      begin
      //获取保存路径文件名并打开文件
        ShellExecute(application.handle, nil, PChar(Route + SaveDialogname.FileName), nil, nil, SW_SHOWNORMAL)
      end
      else
      begin
        Application.MessageBox('文件打开失败或文件不存在,请重新导出文件！', '提示', MB_OK + MB_ICONINFORMATION);
      end;
    end
  end
  else
  begin
    raise Exception.Create('无法创建该路径： ' + Route);
  end;
end;
//调用函数
DBGridEhToXlsx('生产进度',DBGridEh1,SaveDialog1)