Impor Semua sheet pada dibanyak file - EXCEL VBA

Impor Semua sheet pada dibanyak file belajar excel VBA 

Sub merge_Files()
Dim xx, i As Integer
Dim yy As FileDialog
Dim w1, w2 As Workbook
Dim s1 As Worksheet
Set w1 = Application.ActiveWorkbook
Set yy = Application.FileDialog(msoFileDialogFilePicker)
yy.AllowMultiSelect = True
xx = yy.Show
For i = 1 To yy.SelectedItems.Count
Workbooks.Open yy.SelectedItems(i)
Set w2 = ActiveWorkbook
For Each s1 In w2.Worksheets
s1.Copy after:=w1.Sheets(w1.Worksheets.Count)
Next s1
w2.Close
Next i
End Sub


UNDUH SAMPEL FILE XLSM : DISINI


Silahkan dikembangkan dan semoga bermanfaat !!!