access vba之数据导出excel和html

最新推荐文章于 2023-01-10 12:43:37 发布

deepfuture

最新推荐文章于 2023-01-10 12:43:37 发布

阅读量464

点赞数

分类专栏： access vba开发文章标签： shell

access vba开发专栏收录该内容

14 篇文章 2 订阅

订阅专栏

Private Sub export_btn_Click()
  qcon = querycon()
  DoCmd.Close
  DoCmd.OpenForm "清册查询", acFormDS, , qcon, acFormReadOnly, acHidden
  DoCmd.OutputTo acOutputForm, "清册查询", acFormatXLS, CurrentProject.Path & "\导出结果\清册查询.xls", True
  DoCmd.Close
  DoCmd.OpenForm ("资料查询")
  Shell "explorer.exe " & CurrentProject.Path & " \导出结果\", vbNormalNoFocus
  MsgBox (CurrentProject.Path & " \导出结果\清册查询.xls 导出成功！")
End Sub

使用DoCmd.OutputTo可以将窗体、查询、报表的内容导出为excel、txt、html、pdf等文档。

使用shell执行命令，打开目录

Shell "explorer.exe " & CurrentProject.Path & " \导出结果\", vbNormalNoFocus