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

• #41534 Louro őstag Sutyi73 #41533

  Új Válasz 2019-08-08 15:16:23 #41534

  Ú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

  

  Louro

  őstag

  válasz Sutyi73 #41533 üzenetére

  Nem teszteltem, de valahogy így
  A célmunkalapra a fejlécet azért átmásolnám első körben és utána futtatnám.

  Sub GetInfo()
  Dim wb As Workbook
  Set wb = Activeworkbook
  Path = "C:\Temp\"
  Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
  Range("A2:G"&Activesheet.Usedrange.Rows.Count).Copy _
  Destination:=wb.Worksheets("Célmunkalap").Range("A" & wb.Worksheets("Célmunkalap").Usedrange.Rows.Count + 1)
  Workbooks(Filename).Close
  Filename = Dir()
  Loop
  End Sub

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