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

• #47563 Pakliman tag BEndre34 #47562

  Új Válasz 2021-10-16 22:33:13 #47563

  Ú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

  

  Pakliman

  tag

  válasz BEndre34 #47562 üzenetére

  Szia!

  Egy egyszerűsített lehetőség (nincs hibakezelés):
  Sub Makró1()
Dim MFName As String

MFName = Dir("x:\utvonal\Jelenléti ##.##.xlsx")
Do While MFName <> ""
Workbooks.Open Filename:="x:\utvonal\" & MFName
ActiveWorkbook.Sheets(1).Copy Before:=Workbooks("Összesítő").Sheets(1)
ActiveSheet.Name = Mid(ActiveWorkbook.Name, 11, 6)
Workbooks(MFName).Close SaveChanges:=False

MFName = Dir 'NINCS PARAMÉTER!!
Loop
End Sub

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