从Excel打开访问报告进入"另存为"窗口

Question

我想从Excel打开一个访问报告，但它没有显示报告，而是转到"另存为"窗口。

我尝试了acViewDesign，acViewNormal，acViewPreview，也没有一个，但它都给了我同样的东西。

Dim accessApp As Object

Sub DisplayReport()
Dim DocName As String
Dim Path As String
Set accessApp = CreateObject("Access.Application")
Path = "C:UsersuserDesktopDatabase1.accdb"
accessApp.OpenCurrentDatabase Path
accessApp.DoCmd.OpenReport "Sheet1", acViewReport
accessApp.Visible = True
End Sub

Answer 1

添加对 Access 对象库的引用或使用值 5 代替 acViewReport

accessApp.DoCmd.OpenReport "Sheet1", 5

所有常量值都在这里