Hallo allemaal,
In Excel 2013/2016 gebruik ik een routine om automatisch het pad naar bestanden te vinden.
Nu zit ik even op de OneDrive van een grote organisatie en nu werkt die routine niet meer.
Hij struikelt over "GetFolder".
Of heeft het iets te maken met "Scripting.FileSystemObject"?
Wie weet wat het probleem (en de oplossing) is?
Groet,
Willem
In Excel 2013/2016 gebruik ik een routine om automatisch het pad naar bestanden te vinden.
Nu zit ik even op de OneDrive van een grote organisatie en nu werkt die routine niet meer.
Hij struikelt over "GetFolder".
Of heeft het iets te maken met "Scripting.FileSystemObject"?
Wie weet wat het probleem (en de oplossing) is?
Groet,
Willem
Code:
Sub LijstMetBestanden()
Dim fileNamesCol As New Collection
Set FSO = CreateObject("Scripting.FileSystemObject")
NwPad = FSO.GetFolder(ThisWorkbook.Path & "\..").Path
PadActueel = NwPad & "\05 Projecten Actueel\"
MyFile = Dir$(PadActueel & "*.xlsm")
Do While MyFile <> ""
fileNamesCol.Add (Replace(MyFile, ".xlsm", ""))
MyFile = Dir$
Loop
Dim ic As Integer
ic = 1
r = 8
For Each MyFile In fileNamesCol
Range("A" & r).Value = fileNamesCol(ic)
ic = ic + 1
r = r + 1
Next MyFile
End Sub