ms-access - 访问：ActiveWorkbook.path 的运行时错误 424

Question

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

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

正如@AnorZaken 在这里所建议的那样。

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

Answer 1

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

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