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
2017-11-15-16:40
#3983
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: 7 years, 3 months telt el-
delila.