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

• #46873 Delila_1 veterán [w] #46872

  Új Válasz 2021-06-07 18:20:36 #46873

  Ú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 [w] #46872 üzenetére

  Látod, ez már rendesebb. Először nem derült ki, miről van szó.
  Sub xx()
  Dim sMappa  As String, s As String, wb As Workbook
  
  sMappa = "C:\Dokumentumok\___TEMP\"
  s = Dir(sMappa & "*.xls*")
  Do While s <> ""
    Set wb = Workbooks.Open(sMappa & s)
    With wb.Sheets("Ellenőrzendő")
        .Range("B25") = "Készítő neve"
        .Range("C25") = Date
        .Range("D25") = "Józsi"
    End With
    wb.Save
    wb.Close False
    s = Dir
  Loop
End Sub

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