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