Telefonszámunk: 1-472-0679

Hozzászólás: [Resolved] VBA – másolás különböző mappában lévő fájlok között

Kezdőlap Fórumok Excel programozás [Resolved] VBA – másolás különböző mappában lévő fájlok között Hozzászólás: [Resolved] VBA – másolás különböző mappában lévő fájlok között

#3983
delila
Felhasználó

    Míg Imre előkerül, és megmondja, miért nem jó ez:

    Sub Masolasok()
        Dim tomb(2, 15), utvonal As String, FN As String, sorszam As Integer
        Dim WB As Workbook
        
        'első mappa fájlnevek feltöltése a tomb() tömbbe
        utvonal = "F:\első mappa\"
        FN = Dir(utvonal & "*.xlsx", vbNormal)
        Do While FN <> ""
            sorszam = sorszam + 1
            tomb(1, sorszam) = FN
            FN = Dir()
        Loop
        
        'második mappa fájlnevek feltöltése a tomb() tömbbe
        utvonal = "F:\második mappa\": sorszam = 0
        FN = Dir(utvonal & "*.xlsx", vbNormal)
        Do While FN <> ""
            sorszam = sorszam + 1
            tomb(2, sorszam) = FN
            FN = Dir()
        Loop
        
        'másolások
        For sorszam = 1 To 15
            Workbooks.Open "F:\első mappa\" & tomb(1, sorszam)
            Set WB = ActiveWorkbook
            Workbooks.Open "F:\második mappa\" & tomb(2, sorszam)
            Sheets(4).Copy After:=WB.Sheets(3)
            ActiveWorkbook.Save
            ActiveWorkbook.Close
            ActiveWorkbook.Close
        Next
    End Sub

    Esetleg ott lehet majd gond, hogy nem biztos, hogy az 1. mappa 1. fájljához kell a 2. mappa 1. fájl utolsó lapja. Lehet, hogy valami szerint (név, mentési idő) párba kell rendezni a fájlokat a másolások elindítása előtt.
    Az utvonal változók értékét írd át a saját 2 útvonaladra, minden előfordulásukkor a makró futtatása előtt.

    • A hozzászólás módosításra került: 6 years, 3 months telt el-delila.