Prikazi cijelu temu 07.02.2017 23:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Excel kopiranje listova iz Knjiga2, Knjiga3, Knjiga4.. u Knjiga1
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Explicit
  2.  
  3. Function Kopiraj()
  4.  Dim ObEx As Excel.Application
  5.  Dim Vork As Excel.Workbook, VorkN As Excel.Workbook
  6.  Dim ExSit As Excel.Worksheet, ExSitN As Excel.Worksheet
  7.  Dim excelFile, DirF As String, Filename As String, Putanja As String
  8.  Dim f As Integer, I As Integer
  9.  
  10. excelFile = Array("knjiga1.xlms", "knjiga2.xlms", "knjiga3.xlms")
  11. DirF = "c:\excelFile\"
  12. Putanja = DirF & "Zbirna.xlms"
  13. Set ObEx = New Excel.Application
  14. Set VorkN = ObEx.Workbooks.Add
  15. VorkN.SaveAs Putanja
  16. For f = 0 To UBound(excelFile)
  17.     Filename = Dir(DirF & excelFile(f))
  18.     If Filename <> "" Then
  19.     Putanja = DirF & Filename
  20.     Set Vork = ObEx.Workbooks.Open(Putanja)
  21.     For Each ExSit In Vork.Sheets
  22.     I = I + 1
  23.     ExSit.Copy VorkN.Sheets(I)
  24.     VorkN.Sheets(I).Name = Filename & "_" & ExSit.Name
  25.     Next ExSit
  26.     Vork.Close
  27.     End If
  28. Next f
  29. VorkN.Save
  30. VorkN.Close
  31. End Function

To ces ti fino srediti i objasniti kod.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.