Как открыть книгу excel в vba с помощью строковой переменной

Question

У меня есть массив файлов Excel. Я хочу назначить файл строковой переменной, а затем назначить его в Workbooks.Open, чтобы открыть его. Я получаю эту ошибку «приложения или объекта определенных ошибок Любая идея, где я мог бы идти неправильно

Это мой код:.?

Dim x As Workbook 
Dim xFileName As String 
Dim WkBk As Integer 
Dim MyArrayOne as Integer 
WkBk = 0 

    MyArray1 = Array("filename1", filename2", filename3, filename4") 

Do While Count <> MyArrayOne 

    xFileName = MyArray1(WkBk) 
    Set x = Workbooks.Open(xFileName) 
    WkBk = WkBk + 1 
Loop 

Answer 1

Вы можете попробовать это:

Dim MyArray1 As Variant, i As Long, x As Workbook 
MyArray1 = Array("filename_1", "filename_2", ... , "filename_n") 

For i = LBound(MyArray1) To UBound(MyArray1) 
    Set x = Workbooks.Open(MyArray1(i)) 
    'do other cool stuffs here 
Next 

Answer 2

Sub M_snb() 
    for each it in Array("filename1", "filename2", "filename3", "filename4") 
     workbooks.open it 
    next 
End Sub