按路径和名称参考工作簿 - VBA

Sam*_*Sam 7 excel vba excel-2007 excel-vba

Sub Quack()

Dim LookupWB As Workbook
Set LookupWB = Application.Workbooks("C:\Users\user1\Desktop\Book1.xlsx")

End Sub
Run Code Online (Sandbox Code Playgroud)

此代码给出错误:

下标超出范围我认为这是因为"设置"线.你如何通过路径正确引用工作簿?

如果我写:( Set LookupWB = Application.Workbooks("Book1.xlsx")没有完整路径)它完美地工作.非常感谢!

tho*_*mad 14

我想你需要先使用这个Open功能:

Workbooks.Open Filename:="C:\Users\user1\Desktop\Book1.xlsx"
Set LookupWB = Application.Workbooks("Book1.xlsx")
Run Code Online (Sandbox Code Playgroud)

  • 更好:`设置LookupWB = Workbooks.Open(文件名:="C:\ Users\user1\Desktop\Book1.xlsx")` (15认同)