jkpieterse
Terugkerende gebruiker
- Lid geworden
- 18 mei 2015
- Berichten
- 2.823
Dit werkt gewoon bij mij:
Code:
Private Sub MT_CopyDataFromWorkbooksIntoMaster()
Dim lastrow As Long
Dim lastcolumn As Long
Dim FolderPath As String
Dim Filepath As String
Dim Filename As String
FolderPath = "H:\Mijn Documenten\Excel\PLANNINGEN - TEST"
Filepath = FolderPath & "*.xls*"
Filename = Dir(Filepath)
Do While Filename <> "" And FileDateTime(FolderPath & Filename) < DateValue("01-11-2017")
'Nu iets doen met bestand
Filename = Dir()
Loop
End Sub