Napomena pre korišćenja makroa:

Neophodno je da napraviš direktorijum (folder) u kojem će se nalaziti isključivo i samo oni Excel fajlovi koji ti trebaju jer makro ide kroz svaki fajl u direktorijumu koji odabereš i sadržinu svakog fajla ubacuje u svaki zasebni istoimeni sheet na dnu ekrana u sklopu istog Excel fajla.

Koraci koje je neophodno da slediš su:

1.) Otvoriš novi Excel fajl

2.) U sklopu opcija u gornjem delu sa desne strane tab-a "View" klikni na "Developer" tab (uokvireno i označeno crvenom strelicom na slici 2.0)

Slika 2.0

Ako nemaš tu opciju, isprati sledeće korake. U suprotnom klikni OVDE za prelazak na korak 3.

2.1 ) Klikni na opciju "File" skroz levo gore medju tabovima (uokvireno i označeno crvenom strelicom na slici 2.1)

Slika 2.1

2.2 ) Klikni na opciju "Options" skroz levo dole na novootvorenim opcijama sa leve strane (uokvireno i označeno crvenom strelicom na slici 2.2)

Slika 2.2

2.3 ) Klikni na opciju "Customize Ribbon" skroz levo dole na novom prozoru u opcijama sa leve strane (uokvireno i označeno crvenom strelicom na slici 2.3)

Slika 2.3

2.4 ) Štikliraj opciju "Developer" na desnom meniju u istom prozoru (uokvireno i označeno crvenom strelicom na slici 2.4)

Slika 2.4

2.5 ) Klikni na "OK", pa klikni OVDE za povratak na korak broj 2

3.) Zatim klikneš na "Visual Basic" koji se nalazi u levom uglu medju novim opcijama (uokvireno i označeno crvenom strelicom na slici 3.0)

Slika 3.0

4.) Nakon što ti se otvori novi prozor, ispod "File" opcije ti se nalazi zelena ikonica, a sa njene desne strane ikonica na koju treba da prisloniš kursor miša, pa kad se pojavi crni trougao usmeren na dole treba da klikneš na njega (uokvireno i označeno crvenom strelicom na slici 4.0)

Slika 4.0

5.) Tu će ti se otvoriti još par opcija ispod, od kojih treba da klikneš na opciju "Module" (uokvireno i označeno crvenom strelicom na slici 5.0)

Slika 5.0

6.) Da bi automatski kopirao ceo kod koji se nalazi na prozoru ispod ovog teksta koji sada čitaš, klikni na veliko zeleno dugme "KOPIRAJ KOD" 

Sub CombineAllWorkbooksInFolder()

  Dim myDialog As FileDialog, myFolder As String, myFile As String

  Set myDialog = Application.FileDialog(msoFileDialogFolderPicker)

  If myDialog.Show = -1 Then
    myFolder = myDialog.SelectedItems(1) & Application.PathSeparator
    myFile = Dir(myFolder & "*.xls*")
    Do While myFile <> ""
      Workbooks.Open myFolder & myFile
      Workbooks(myFile).Worksheets.Copy After:=ThisWorkbook.ActiveSheet
      Workbooks(myFile).Close
      myFile = Dir
    Loop
  End If

End Sub

7.) Kod koji si kopirao nalepi (paste) na belu površinu prozora da izgleda kao na slici 7.0 (označeno crvenim okvirom)

Slika 7.0

8.) Na istom prozoru ti se nalazi u gornjim opcijama ispod "Debug" opcije zeleni trougao koji treba da klikneš (uokvireno i označeno crvenom strelicom na slici 7.0)

9.) Prethodnom komandom si pokrenuo makro (dodatak za Excel) koji ti je otvorio prozor na kojem možeš da odabereš direktorijum u kojem ti se nalaze fajlovi čiji sadržaj želiš da povučeš u jedan Excel fajl (pogledaj sliku 9.0)

Slika 9.0

10.) Nakon toga će ti se pojaviti sheet-ovi na dnu ekrana, u svakom će ti se nalaziti sadržaj istoimenog fajla (uokvireno i označeno crvenom strelicom na slici 10.0)

Slika 10.0