「運行時錯誤」1004「 - 找不到文件」

Question

我正在運行一個VBA腳本，它將dbf文件批量轉換爲Excel電子表格。本週早些時候我已經使用過這個腳本，它的工作非常完美。

不過，我嘗試使用它再次對一些新的數據，和我遇到的標題列出的錯誤：「對不起，我們無法找到文件的.dbf，是有可能它被移動，重命名，或刪除？「

令人沮喪的是，當我回到以前的數據工作的舊模塊，它不再有效！代碼中沒有任何變化，所以我很困惑。這是」

Sub OpenDBF() 

Folder = "C:\Users\Smiliepants101\Documents\Brown\Thesis\CatAg\" 

FName = Dir(Folder & "*.dbf") 

Do While FName <> "" 
    Set bk = Workbooks.Open(Filename:=FName) 
    bk.Close savechanges:=True 

    FName = Dir() 
Loop 

End Sub 

Answer 1

FName = Dir(Folder & "*.dbf") 

FName只是文件名，而不是完整的路徑。您的代碼將工作，如果Folder恰好是當前目錄，但如果它是不是很可能會失敗。

取而代之的是：

Set bk = Workbooks.Open(Filename:=FName) 

而是執行此操作：

Set bk = Workbooks.Open(Filename:=Folder & FName)