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

Jack·高峰 • 2017-11-13 10:08 • 2159 阅读

but1_Click /// 导出数据xls 到指定文件夹 var Path: string; begin GetDir(0, Path); SaveDialog1.FileName := '生产排程表_'+ FormatDateTime('yyyymmddhhnn',now()) +'.xls'; ExportDBGridEhToXlsx(DBGridE...

当前字体大小 15px

12px 50px

but1_Click
/// 导出数据xls 到指定文件夹
var
  Path: string;
begin
  GetDir(0, Path);
  SaveDialog1.FileName := '生产排程表_'+ FormatDateTime('yyyymmddhhnn',now()) +'.xls';
  ExportDBGridEhToXlsx(DBGridEh1, Path + '\C_Data\DS\' + SaveDialog1.FileName, []);
  if MessageDlg('文件已保存！'#13'是否打开 "' + SaveDialog1.FileName + '" 文件?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    ShellExecute(Handle, nil, PChar(Path + '\C_Data\DS\' + SaveDialog1.FileName), nil, nil, SW_SHOWNORMAL);
end;