运行时错误1004：Excel VBA无法找到要打开的文件

Question

我正在尝试运行VBA程序以比较物料清单（BOM）和部件列表，但无法打开文件这样做。 “Workbooks.Open（BomName）”中出现运行时错误“1004”。这些文件位于相同的文件夹中。任何建议？

'1. Imput BomName 
    Dim BomName As String 
    BomName = InputBox("Enter BOM to check") 
     If BomName = "" Then 
      Exit Sub 
     Else 
      'continue program 
     End If 

    '2 Open BomName File & Vantage Parts File 
    Workbooks.Open (BomName) 
    Workbooks.Open ("Part Last Cost Demand wMin Qty.xlsx") 

Answer 1

尝试输入完整的路径名BOM工作簿，如：C：\ workbookname.xlsx我也建议，因为他们是在同一个文件夹中，使用一个字符串变量来表示该文件夹的位置。然后，你需要做的就是workbooks.open(path & BomName)