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

摘要

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

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;

📱 扫码关注公众号

扫描二维码关注我们，获取更多精彩内容
实时更新 · 干货满满

点赞收藏分享

推荐阅读

版权所有：辰峰微网
文章标题：DBGridEh1 but1_Click /// 导出数据xls 到指定文件夹
文章链接：https://www.14551.cn/Delphi/765.html
版权声明：本站提供的一切软件、教程和内容信息仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。本站信息来自网络收集整理，如果您喜欢该程序和内容，请支持正版，购买注册，得到更好的正版服务。我们非常重视版权问题，如有侵权请邮件与我们联系处理。敬请谅解！

扫描二维码，在手机上阅读