"Run-time error '1004' - couldn't find file"

Question

我是运行一个 VBA 脚本，可将 dbf 文件批量转换为 excel 电子表格。本周早些时候我已经多次使用这个脚本，并且效果很好。

但是，我尝试再次使用它来获取一些新数据，但我运行遇到了标题中列出的错误："Sorry we couldn't find file.dbf, is it possible it was moved, renamed, or deleted?"

令人沮丧的是，当我回到适用于以前数据的旧模块时，它不再有效了！代码没有任何变化，所以我很困惑。在这里"

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 只是文件 name，不是完整路径。如果 Folder 恰好是当前目录，您的代码将工作，但如果不是，则可能会失败。

而不是这个：

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

改为这样做：

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

"Run-time error '1004' - couldn't find file"

"Run-time error '1004' - couldn't find file"

vba

excel

runtime

runtime-error