Prikazi cijelu temu 06.02.2017 17:00
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
trebao bi nekakvu proceduru koja ce sve listove iz Knjiga2.xlms, Knjiga3.xlms,Knjiga4.xlms...itd
kopirati u Knjiga1.xlms nakon List1

hvala

ja sam nasao nesto na internetu ali mi ne radi:

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim directory As String, fileName As String, sheet As Worksheet, total As Integer
  2. Application.ScreenUpdating = False
  3. Application.DisplayAlerts = False
  4. directory = "c:\test\"
  5. fileName = Dir(directory & "*.xl??")
  6. Do While fileName <> ""
  7.         Workbooks.Open (directory & fileName)
  8.         For Each sheet In Workbooks(fileName).Worksheets
  9.                 total = Workbooks("import-sheets.xls").Worksheets.count
  10.                 Workbooks(fileName).Worksheets(sheet.Name).Copy _
  11.                         after:=Workbooks("import-sheets.xls").Worksheets(total)
  12.         Next sheet
  13.         Workbooks(fileName).Close
  14.         fileName = Dir()
  15. Loop
  16. Application.ScreenUpdating = True
  17. Application.DisplayAlerts = True
zivot je moja domovina.