access vba之数据导出excel和html

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