訪問：運行時錯誤424 ActiveWorkbook.path

Question

我試圖打開一個包含使用此代碼

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

由@AnorZaken建議here我的Access數據庫的目錄。

但是，第二行會引發運行時錯誤「需要424個對象」。 當我使用一些靜態路徑（即path = "C:\"）一切工作正常。

Answer 1

ActiveWorkbook適用於Excel。在Access中，使用CurrentProject

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