Prikazi cijelu temu 07.02.2017 02:36
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
Evo procedura samo je treba prilagoditi.
Ako nije jasno pitaj.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function DirFajl(Putanja As String, Optional Kriterija As String = "*")
  2. On Error GoTo Error_Handler
  3.     Dim Fajl As String
  4.     Fajl = Dir(Putanja & "*." & Kriterija)
  5.         Do While Fajl <> vbNullString
  6.             If Fajl <> "." And Fajl <> ".." Then
  7.                     Debug.Print "- " & Fajl
  8.             End If
  9.             Fajl = Dir
  10.         Loop
  11. Error_Handler_Exit:
  12.     On Error Resume Next
  13.     Exit Function
  14. Error_Handler:
  15.     MsgBox "The following error has occured." & vbCrLf & vbCrLf & _
  16.             "Error Number: " & Err.Number & vbCrLf & _
  17.             "Error Source: DirFajl" & vbCrLf & _
  18.             "Error Description: " & Err.Description, _
  19.             vbCritical, "An Error has Occured!"
  20.     Resume Error_Handler_Exit
  21. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.