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

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

-cell-by-cell，这很慢

请注意，尽管建议的Excel自动化实际上是针对查询的，因为将报表导出到Excel会使它们非常难看。如果我没记错的话，此功能已在Access 2007中删除

是Access 2000数据库，包含将报表和快照文件转换为PDF文档的功能。不需要PDF打印机驱动程序。免费的

好吧，您不能将其“添加”到报告中。但在打开报告的表单上，可以添加一个按钮，其代码如下：

DoCmd.OutputTo acOutputReport, "ReportName", acFormatXLS,
"c:\YourFolderName\ReportName - " & Format(Date, "yyyymmdd") & ".xls"

---

。因此，您需要安装PDF打印机或使用Tony Toews suggestion，Christian建议在表单上使用一个命令按钮，但您也可以为报表创建一个工具栏，工具栏上有一个按钮可以将报表导出到Excel。但正如托尼所说，结果会很糟糕

---

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

我刚刚结合了前面的一些答案，这是最后一个将报告导出到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

---

吉尼斯家族。我同意你的观点，并在meta.stackoverflow.com上提出了这个问题。E虽然大家都同意我的问题，所以他们重新开始了这个问题。我认为这是一个好问题，但似乎有一条或多条评论表明这可能是一个有问题的问题，可能已经被删除了。这是真的吗？在上下文方面，四个人投票支持杰福的“这怎么不是编程？”评论，@tony toews回复了吉尼斯家族不存在的评论。有人能解释一下吗？Christian，你有没有尝试过将报告导出到Excel？真难看。实际上，2007年版有内置的PDF支持，所以我应该提到，在早期版本的Access中，使用Stephen Lebans的snapshot converter，或者使用PDFCreator之类的东西，可以很容易地添加.PDF export，它可以从VBA自动执行。在Excel中使用HTML可以获得非常好的格式，在VBA中使用模板并填补空白并不是那么困难。Excel接受HTML而不做特殊的事情吗？Word不能通过自动化很好地处理它（或者，至少，我还不知道如何处理）——这让我找到了我评论的主要原因，也就是说，我们在这里讲授解析HTML。是否有一个可访问的解析HTML的解决方案？我非常需要它！Tony，根据Allen Browne的说法，导出到Excel的问题在2007 SP2中得到了解决。如果在输出命令的末尾添加

，True

，它将为您打开Excel文件。不需要ShellX。它被称为自动启动选项。