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

Question

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

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

正如@AnorZaken所建议的here

。

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

Answer 1

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

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