<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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