“當前路徑”指的是什麼的當前路徑？ 在Office應用程式（如Word或Excel等）中當前開啟的文件所在的路徑？還是Office這個應用程式所在的路徑。 如果傳入一個“”，好象預設是返回“我的文件”中的第一個文件。所以那個.classPath可能就是你機器上“我的文件”中的第一個檔案的檔名。 下面這個函式用MsgBox顯示給定目錄下的所有檔名： Function EnumAllFiles(strPathName As String) Dim strFileName As String strFileName = Dir(strPathName & "*.*") While strFileName <> "" If MsgBox("檔名是 " & strFileName & ". 是否繼續列舉？", vbDefaultButton1 Or vbYesNoCancel Or vbQuestion) <> vbYes Then Exit Function strFileName = Dir Wend End Function

還沒有解決嗎？那我就來試一下。（1）首先，樓主先新建一個excel，名稱樓主自己寫，怎樣都行，然後將其開啟。（2）開啟後按住Alt再按F11，這樣就會開啟vba程式碼編輯器（3）點選單欄上的“插入”，選擇“模組”，這樣在左下角就會出現一個“模組1”（4）雙擊“模組1”，右邊就會出現“模組1”的編輯介面，將以下程式碼複製，並貼上到這個介面中，按F5執行。（5）在出現的對話方塊中，將你要查詢的檔案的地址複製到對話方塊中，按確定，就完成了。 注：這裡用的是excel2007版，如果樓主用的是其他版本，有可能存在程式碼不相容問題。 圖1.開啟vba編輯器。 圖2.執行程式碼。 圖3.結果。