loop through folder & sub-folder to open a file

[Trev0j]

Hello there!

I currently have a this code that opens specific excel files in a folder path. However, I want to take this code one step further, and open specific files in the folder, and sub folders.


Sub vba_open_()

Dim wb As Workbook
Dim strFolder As String
Dim strFile As String

strFolder = "C:\Users\xxxxxx\Desktop\codel\"
strFile = Dir(strFolder & Range("Y47"))
Do While strFile <> ""
Set wb = Workbooks.Open(strFolder & strFile)
strFile = Dir
Loop

End Sub

Appreciate your help! - Thanks in advance..

 

[Joe4]

There are numerous threads out there that deal with this kind of thing.
Here is one I found with a quick search, but there are many more: Using VBA to open files in a folder using partial file names