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

• [w] őstag

  #46602

  #46601 Pakliman

  2021-05-07 10:04:12

  Új Válasz

  Ú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

  

  [w]

  őstag

  #46601 Pakliman

  #46601 Pakliman

  Sub xx()
Dim sMappa As String
Dim s As String
Dim wb As Workbook

sMappa = "C:\Dokumentumok\___TEMP\"
s = Dir(sMappa & "*.xls*")
Do While s <> ""
Set wb = Workbooks.Open(sMappa & s)
If IsEmpty(wb.Worksheets("Ellenőrzendő").Range("B25")) Then
wb.Worksheets("Ellenőrzendő").Range("B25") = "Készítő neve"
wb.Save
End If
wb.Close

s = Dir
Loop
End Sub

  köszi, próbálkozom...

  mi az ellenőrzendő, a lapfül neve?

  most így hirtelen "subscript out of range"
  

  ok, elírás volt a lapfül nevében...

  annyiban bonyolult a helyzet, hogy az egyes munkafüzetek saját, külön könyvtárakban vannak legyűjtve, tehát nem egy mappából kell őket megnyitni (sMappa), hanem rengetegből

  ezzel így megoldható?

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