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

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, 8 months telt el-delila.