Predmet:Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
Ovo kod mene radi
importuje sve neprazne sheetove iz direktorijuma gde je smesten fajl
radi za xls fajlove
trebalo bi dodati petlju da to jos jednom uradi za xlsx, xlsm, eventualno csv ili sta vec
PreuzmiIzvorni kôd (Visual Basic):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