Goedemiddag allemaal,
Allereerst bedankt voor je tijd en aandacht
Ik heb op internet een code kunnen vinden waarmee de macro door 1 folder loopt en van alle beschikbare files de range kopieert van het gewenste tabblad en plakt in de master workbook.
Zie hieronder:
Ik zou nu graag een macro willen hebben die mij in staat stelt om automatisch data te kopieren en plakken van bestanden afkomstig van meerdere subfolders van de directory. In de afbeelding hieronder zie je 2 folders: de bovenste is de folder met daarin de master workbook en de subfolders, de onderste is een voorbeeld van de subfolders met daarin de Excel bestanden (allemaal opgeslagen in .xlsb)
Kunnen jullie mij hiermee helpen?
Mochten jullie nog extra informatie nodig hebben, let me know
PS: ik heb eerder een dergelijke vraag geplaatst bij MrExcel -> https://www.mrexcel.com/forum/microsoft-access/1031521-macro-loops-through-all-monthly-folders.html
Ontzettend bedankt & een fijne dag
Djani
Allereerst bedankt voor je tijd en aandacht
Ik heb op internet een code kunnen vinden waarmee de macro door 1 folder loopt en van alle beschikbare files de range kopieert van het gewenste tabblad en plakt in de master workbook.
Zie hieronder:
Code:
Sub LoopThroughFolder()
Dim MyFile As String, Str As String, MyDir As String, wb As Workbook
Dim Rws As Long, Rng As Range
Set wb = ThisWorkbook
MyDir = "H:\My Documents\Djani\MPCR\Project\FY17\CEN\GER\Qashqai\"
MyFile = Dir(MyDir & "*.xls*")
ChDir MyDir
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While MyFile <> ""
Workbooks.Open (MyFile)
With Worksheets("Monthly_DB")
Rws = .Cells(Rows.Count, 1).End(xlUp).Row
Set Rng = Range(.Cells(2, 1), .Cells(Rws, 64))
Rng.Copy wb.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
ActiveWorkbook.Close False
End With
MyFile = Dir()
Loop
End Sub
Ik zou nu graag een macro willen hebben die mij in staat stelt om automatisch data te kopieren en plakken van bestanden afkomstig van meerdere subfolders van de directory. In de afbeelding hieronder zie je 2 folders: de bovenste is de folder met daarin de master workbook en de subfolders, de onderste is een voorbeeld van de subfolders met daarin de Excel bestanden (allemaal opgeslagen in .xlsb)
Kunnen jullie mij hiermee helpen?
Mochten jullie nog extra informatie nodig hebben, let me know
PS: ik heb eerder een dergelijke vraag geplaatst bij MrExcel -> https://www.mrexcel.com/forum/microsoft-access/1031521-macro-loops-through-all-monthly-folders.html
Ontzettend bedankt & een fijne dag
Djani