In 2007 werkt Application.FileSearch niet meer. Ik heb een lijst nodig van alle rapportages die in een bestand zijn weergegeven. Deze ga ik vervolgens omzetten naar pdf en daarna koppelen aan het goede mail adres en versturen.
nu heb ik het volgende:
Sub bestandenindir()
Dim i As Integer
sDir = Dir$(sPath & "*.xls", vbNormal)
Do Until LenB(sDir) = 0
i = i + 1
Cells(i + 1, 1).Select
ActiveCell = sDir
sDir = Dir$
Loop
End Sub
Dit levert echter niet de gehele bestandsnaam op nl alleen maar test.xls en ik wil ook cocumentssettings/ etc etc hebben
Waar gaat het verkeerd en hoe pas ik de code aan?
nu heb ik het volgende:
Sub bestandenindir()
Dim i As Integer
sDir = Dir$(sPath & "*.xls", vbNormal)
Do Until LenB(sDir) = 0
i = i + 1
Cells(i + 1, 1).Select
ActiveCell = sDir
sDir = Dir$
Loop
End Sub
Dit levert echter niet de gehele bestandsnaam op nl alleen maar test.xls en ik wil ook cocumentssettings/ etc etc hebben
Waar gaat het verkeerd en hoe pas ik de code aan?
