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