访问：运行 时间错误 424 ActiveWorkbook.path

Question

我正在尝试使用此代码打开包含我的 Access 数据库的目录

Dim path As String
path = ActiveWorkbook.path & "\"
Shell "cmd /C start """" /max """ & path & """", vbHide

按照@AnorZaken 的建议here。

然而，第二行引发了 运行 时间错误“需要 424 个对象”。 当我使用一些静态路径（即 path = "C:\"）时，一切正常。

Answer 1

ActiveWorkbook 适用于 Excel。在 Access 中，使用 CurrentProject

'path = ActiveWorkbook.path & "\"
path = CurrentProject.Path & "\"