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

• #52837 Fferi50 Topikgazda Csabex #52836

  Új Válasz 2024-06-12 22:46:27 #52837

  Ú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

  

  Fferi50

  Topikgazda

  válasz Csabex #52836 üzenetére

  Szia!
  Majdnem.
  A műveletek "álnév" alatt értem az általad végzendő műveleteket, kb. akkor így lehetne:
  Sub Masolas()
' Feltétel: A forrás munkafüzet legyen nyitva, mielőtt a makrót elindítod
Dim fnev As String
fnev = Dir("F:\123\*.xlsx")
Do While fnev <> ""
    Workbooks.Open "F:\123\" & fnev
    With ActiveWorkbook ' mivel az éppen megnyitott munkafüzet lesz aktív
        .Sheets(1).Range("D4").Value = Sheets("Seged").Range("D1").Value 'a Sheets(1) helyett írhatod a Sheets("név") formát, ahol a név a munkalap neve
        .Sheets(1).Range("E4").Value = Sheets("Seged").Range("D2").Value
    End With
    Workbooks(fnev).Close SaveChanges:=True 'a változás után bezárjuk a munkafüzetet
fnev = Dir()
Loop
MsgBox "Kész."
End Sub
  Továbbá a For ciklusra sincs szükség, hiszen a neveket a Dir parancs adja vissza..
  Üdv.

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