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

• #46603 Pakliman tag [w] #46602

  Új Válasz 2021-05-07 11:08:29 #46603

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

  Ha előre tudod, hogy melyik mappákban kell keresni, akkor kis bővítéssel működik.
  Csak annyiszor kell a programkódot lemásolni a megfelelő mappanévvel, ahány mappában keresni akarsz.
  Ezt csak néhány mappa esetén célszerű használni.
  Természetesen a mappaneveket tömbbe is rakhatod, majd egy For..Next ciklussal végig mész rajtuk.
  Így sokkal rövidebb (és elegánsabb) lesz a kód.

  Sub xx()
Dim aMappa
Dim sMappa As String
Dim s As String
Dim wb As Workbook
Dim i As Long

aMappa = Array( _
"C:\Dokumentumok\___TEMP\", _
"c:\Dokumentumok\Run\", _
"c:\Dokumentumok\_ VEGYES\_Downloads\" _
)

For i = LBound(aMappa) To UBound(aMappa)
sMappa = aMappa(i)
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
Next i

End Sub

  Változó mappastruktúra esetén már előkerül a rekurzív könyvtárkezelés.
  Az már egy kicsit bonyolultabb dolog.

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