Извлечение данных из файлов в папке и ее вложенных папках

Question

У меня есть папка "Тесты" с подпапками "Test1" "Test2" "Test3" и т. Д. У меня есть много файлов в каждой подпапке.

В основном файле .xlsm, с кодом VBAЯ хотел бы открыть каждый файл в каждой подпапке, чтобы извлечь данные из них. Какой код я должен написать?

Я могу извлечь данные только из .txt файлов в корне главной папки

Private Sub CommandButtonl_Click()
Dim my_files As String
Dim folder_path As String
Dim SubFolder As Object
Dim wb As Workbook
Dim ws As Worksheet
x = 1

folder_path = ThisWorkbook.Path & (".\")

my_files = Dir(folder_path & "\*.txt")

Do While my_files <> vbNullString

Set wb = Workbooks.Open(folder_path & "/" & my_files)
Set ws = wb.Sheets(1)

    Range("A45").Copy    

wb.Close SaveChanges:=False

Range("D" & x).Select
ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:= _
        False

x = x + 1

my_files = Dir()

Loop 

    Range("D:D").Select
        Selection.Replace What:="<IMG SRC=""", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=""" ></U>", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Font.Size = 10
    Selection.HorizontalAlignment = xlCenter
    Selection.VerticalAlignment = xlCenter
    Selection.ColumnWidth = 24    

End Sub