문자열 변수를 사용하여 vba에서 Excel 통합 문서를 여는 방법

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