Option Explicit
Sub test2()
Dim fList, f
Dim wbk As Workbook
Dim wsn
Dim wsCount As Long
Dim i As Long
fList = Application.GetOpenFilename( _
FileFilter:="Excel Book ,*.xlsx", MultiSelect:=True)
If Not IsArray(fList) Then Exit Sub
Application.ScreenUpdating = False
Set wbk = ThisWorkbook 'Masterworkbooks
wsn = Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")
wsCount = UBound(wsn)
For Each f In fList
With Workbooks.Open(f)
For i = 0 To wsCount
.Sheets(wsn(i)).Cells(1).CurrentRegion.Offset(1).Copy _
wbk.Sheets(wsn(i)).Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next
.Close False
End With
Next
MsgBox " Data consolodiate successfully !", vbInformation, "Data Import"
End Sub
マナ