Új hozzászólás Aktív témák

• #11905 Delila_1 veterán GoZoL #11901

  Új Válasz 2011-11-07 16:09:18 #11905

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz GoZoL #11901 üzenetére

  Az útvonalat, és a füzet nevét kell átírnod.

  Sub Osszevon()
  Const utvonal = "E:\Eadat\Excel fórumok\Próba\" 'Itt írd át az útvonalat
  Dim FN As String, WB As Workbook, WBGy As Workbook
  Dim lap As Integer, oszlop As Integer, oszlop_gy As Integer
  
  oszlop_gy = 1
  Set WBGy = Workbooks("Gyűjtő.xls") 'Itt írd át a gyűjtő füzeted nevét
  ChDir utvonal
  FN = Dir(utvonal & "*.xls", vbNormal)
  Do
  If FN <> "." And FN <> ".." Then
  Workbooks.Open Filename:=FN
  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  oszlop = Cells(1, Columns.Count).End(xlToLeft).Column
  Columns(oszlop).Copy WBGy.Sheets(1).Cells(1, oszlop_gy)
  oszlop_gy = oszlop_gy + 1
  Next
  ActiveWindow.Close
  End If
  FN = Dir()
  Loop Until FN = ""
  End Sub

Új hozzászólás Aktív témák