VBA打开工作簿时出错-找不到那里的工作簿

Question

我正在尝试打开工作簿，但是Excel给我一条错误消息，提示它找不到工作簿。

Dim pricing As Workbook
dim fname As String

fname = Dir(ActiveWorkbook.Path & "\Budget Pricing Detail*.csv")
Set pricing = Workbooks.Open(Filename:=fname, UpdateLinks:=False)

如您所见，我使用通配符提取文件名，因为每个实例的文件名的最后一位将有所不同。令我感到奇怪的是，当Excel给我错误框时，它实际上命名了WHOLE文件（即使我从未在代码中这样做），我希望找到它并说找不到。同样奇怪的是，这已经在起作用，而现在突然没有了。

Answer 1

我认为DIR仅返回文件名，而不返回整个路径。试试：

fname = ActiveWorkbook.Path & "\" & Dir(ActiveWorkbook.Path & "\Budget Pricing Detail*.csv")