MS Access 从另一个数据库导出报告
MS Access export report from another database
我基本上是在尝试执行以下操作(导出为 PDF 报告):
DoCmd.OpenReport report_name, acViewPreview
DoCmd.OutputTo acOutputReport, report_name, acFormatPDF, dest, False
DoCmd.Close acReport, report_name
但是我试图让它在一个完全独立的数据库中引用一个报表对象。我如何修改 report_name 才能让它工作?我试过“[dbpath].[report_name]”但无济于事。如果重要的话,报告名称中有空格。
创建一个新的 Access 应用程序会话,打开另一个数据库,并将该会话用作您的 Application.DoCmd
方法的宿主应用程序。
Dim objAccess As Access.Application
Set objAccess = New Access.Application
objAccess.Visible = True ' <- useful during development
objAccess.OpenCurrentDatabase "C:\wherever\YourDatabase.accdb"
With objAccess.DoCmd
.OpenReport report_name, acViewPreview
.OutputTo acOutputReport, report_name, acFormatPDF, dest, False
.Close acReport, report_name
End With
objAccess.CloseCurrentDatabase
objAccess.Quit
Set objAccess = Nothing
我基本上是在尝试执行以下操作(导出为 PDF 报告):
DoCmd.OpenReport report_name, acViewPreview
DoCmd.OutputTo acOutputReport, report_name, acFormatPDF, dest, False
DoCmd.Close acReport, report_name
但是我试图让它在一个完全独立的数据库中引用一个报表对象。我如何修改 report_name 才能让它工作?我试过“[dbpath].[report_name]”但无济于事。如果重要的话,报告名称中有空格。
创建一个新的 Access 应用程序会话,打开另一个数据库,并将该会话用作您的 Application.DoCmd
方法的宿主应用程序。
Dim objAccess As Access.Application
Set objAccess = New Access.Application
objAccess.Visible = True ' <- useful during development
objAccess.OpenCurrentDatabase "C:\wherever\YourDatabase.accdb"
With objAccess.DoCmd
.OpenReport report_name, acViewPreview
.OutputTo acOutputReport, report_name, acFormatPDF, dest, False
.Close acReport, report_name
End With
objAccess.CloseCurrentDatabase
objAccess.Quit
Set objAccess = Nothing