Private Sub CommandButton2_Click()
On Error GoTo Error_Handler
    
    Dim putanja As String
    Dim Fajl As String
    Dim kriterija As String
    Dim puninaziv As String
    Dim book As Workbook
   
    Application.ScreenUpdating = False
    kriterija = "xls"   ' za xls (excel 2003 i nize fajlove)
    putanja = Application.ThisWorkbook.Path 'nalazi tekuci direktorijum
     puninaziv = putanja & "\*." & kriterija
    Fajl = dir(puninaziv)
        Do While Fajl <> vbNullString
            If Fajl <> "." And Fajl <> ".." And Fajl <> Application.ThisWorkbook.Name Then ' da ne importuje tekuci fajl
           
                Set book = Workbooks.Open(Fajl, True, True)
                    For Each tabla In book.Sheets
                    If tabla.UsedRange.Cells.Count > 1 Then ' da li i sheetu ima podataka
                        tabla.Copy after:=Sheet1
                    End If
                Next tabla

                book.Close
                 
            End If
            Fajl = dir
        Loop
        Application.ScreenUpdating = True
        
Error_Handler_Exit:
    On Error Resume Next
    Exit Sub
Error_Handler:
    MsgBox "The following error has occured." & vbCrLf & vbCrLf & _
            "Error Number: " & Err.Number & vbCrLf & _
            "Error Source: DirFajl" & vbCrLf & _
            "Error Description: " & Err.Description, _
            vbCritical, "An Error has Occured!"
    Resume Error_Handler_Exit
End Sub