Excel VBA中打开的工作簿

Question

我的代码是：

Dim wb As Workbook 
Dim MyObj As Object, MySource As Object, file As Variant 
file = Dir("C:\Users\dlf164\Desktop\NE\") 
While (file <> "") 
    If InStr(file, a) > 0 Then 
     Set wb = Workbooks.Open(file) 

    End If 
file = Dir 
Wend 

其中我收到的错误是应用或对象定义运行时错误。

如何解决这个问题？

Answer 1

Dir()只返回文件名，但Workbooks.Open()需要完整路径。尝试这样的：

Dim wb As Workbook 
Dim MyObj As Object, MySource As Object, file As Variant 

Dim path As String 
path = "C:\Users\dlf164\Desktop\NE\" 
file = Dir(path) 
While (file <> "") 
    If InStr(file, a) > 0 Then 
     Set wb = Workbooks.Open(path & file) 
    End If 
file = Dir 
Wend