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

• #46890 Delila_1 veterán [w] #46886

  Új Válasz 2021-06-08 11:28:09 #46890

  Ú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] #46886 üzenetére

  A makrót tedd egy üres füzetbe. Írd át az utvonal változó értékét két helyen értelem szerűen, és a txt fájl nevét.
  Indításkor megnyitja a txt fájlt, ahol az A oszlopban (A1-től kezdve) szerepelnek az módosítandó fájlok nevei, kiterjesztéssel.
  Egy ciklusban egyenként megnyitja a 900 fájlt, végrehajtja a módosításokat, és a cserét, amit most csak a B oszlopra írtam meg.

  Sub xx()
    Dim utvonal As String, sor As Long, usor As Long
    utvonal = "C:\Dokumentumok\___TEMP\"  'A címeket tartalmazó txt fájl útvonala
    
    Workbooks.OpenText Filename:=utvonal & "megnyitando.txt"    'Cseréld ki a txt nevét
    usor = Range("A" & Rows.Count).End(xlUp).Row
    
    utvonal = "C:\Dokumentumok\___TEMP\Fájlok\" 'A módosítandó fájlok útvonala
    For sor = 1 To usor
        Workbooks.Open Filename:=utvonal & Cells(sor, 1)
        With Sheets("Ellenőrzendő")
            .Range("B25") = .Range("B25") & " " & "Készítő neve"
            
            'Cserék a B oszlopban
            Columns(2).Replace What:="izé", Replacement:="hogyishíjják", LookAt:= _
                xlPart, SearchOrder:=xlByRows
            .Range("C25") = Date
            .Range("D25") = .Range("D25") & " " & "Józsi"
        End With
        ActiveWorkbook.Save
        ActiveWorkbook.Close
    Next
End Sub

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