如何向Access报告添加按钮以将其导出到Excel/PDF？

Question

如何向Microsoft Access报表添加按钮以将其导出到Excel/PDF？

Answer 1

我刚刚结合了一些以前的答案,这是我的最终代码块,它将报告导出到excel,然后打开所述excel文件.

Private Sub Command79_Click()
'initialize variables
Dim strReportName As String
Dim strPathUser As String
Dim strFilePath As String

'set variables
strReportName = "AlarmLetterForSF"
strPathUser = Environ$("USERPROFILE") & "\my documents\"
strFilePath = strPathUser & strReportName & Format(Date, "yyyymmdd") & ".xls"

'export to excel
DoCmd.OutputTo acOutputReport, strReportName, acFormatXLS, strFilePath

'launch excel file
Dim Shex As Object
Set Shex = CreateObject("Shell.Application")
Shex.Open (strFilePath)
End Sub

结束子

Answer 2

Christian 建议在表单上设置一个命令按钮，但您也可以为报表创建一个工具栏，并在工具栏上放置一个按钮，用于将报表导出到 Excel。但正如托尼所说，结果将是丑陋的。

我想说，更有用的是将报告中显示的数据导出到 Excel 电子表格的按钮。格式化不会那么漂亮，但它会更有用且更易于操作。为此，您可以使用 DoCmd.TransferSpreadsheet 和保存的查询作为导出源（相当于报表的 Recordsource）。