Probaj ovaj macro, možda ti pomogne
U C:\Temp kopiraj sve tvoje datoteke iz kojih trebaš povući Sheets1, Sheets2 itd...
Kreiraj novu Workbook u kojoj Sheet1 preimenuj u Summary tek toliko da imaš neki Sheet u Workbook i snimi je pod recimo imenom Book1 tako da te asocira na Sheet1 (Book2 => Sheet2)
U Book1 u
VBE u Module1 umetni ovaj VBA macro.
Obrati pažnju na postavljene dijelove koda u makronaredbi.
Za svaku Book promijeni ovaj dio koda tj. naziv Sheeta koji povlačiš
With .Sheets("
Sheet1")
Code:
Sub KopirajSheetsIzDatoteka()
Dim myDir As String, fn As String
myDir = "C:\Temp" 'path staza do foldera u kojem se nalaze datoteke
fn = Dir(myDir & "\*.xls") 'extenzija za datoteke iz kojih se kopiraju Sheets
Do While fn <> ""
With Workbooks.Open(myDir & "\" & fn)
With .Sheets("Sheet1") 'Sheet koji se zeli kopirati iz datoteka u folderu
.Name = "" & fn & "" 'naziv kopiranog sheeta je tipa ime.xls
.Copy After:=ThisWorkbook.Sheets(1)
End With
.Close False
End With
fn = Dir
Loop
End Sub