Opening Excel-files in several directories

[Dutch76]

Bob Philips gave me the solution (see hereunder) to open Excel-files in a
certain directory. Is it also possible to change the directory after
finishing this and restart the job from the beginning? In other words: is it
possible to change the line
"sFile = Dir("C:\TestFolders\*.xls", vbNormal)" into
"sFile = Dir("C:\TestFolders2\*.xls", vbNormal)" by a For..Next loop?

 

[Tom Ogilvy]

Sub OpenFiles()
Dim v as Variant, sFile as String, i as Long
v = Array("C:\TestFolders\*.xls", _
"C:\TestFolders2\*.xls", _
"C:\TestFolders3\*.xls")
Dim sFile As String
for i = lbound(v) to ubound(v)
sFile = Dir(v(i), vbNormal)
Do while sFile <> ""
'Do your stuff
Debug.Print Left(v(i),len(v(i))-5) & sFile
sFile = Dir
Loop Until sFile = ""
Next i
End sub

 

[Dutch76]

Thanks Tom!

Sub OpenFiles()
Dim v as Variant, sFile as String, i as Long
v = Array("C:\TestFolders\*.xls", _
"C:\TestFolders2\*.xls", _
"C:\TestFolders3\*.xls")
Dim sFile As String
for i = lbound(v) to ubound(v)
sFile = Dir(v(i), vbNormal)
Do while sFile <> ""
'Do your stuff
Debug.Print Left(v(i),len(v(i))-5) & sFile
sFile = Dir
Loop Until sFile = ""
Next i
End sub