VBA Copy multi CSV/Excel files from Folder to one WorkBook

[MC01_]

Greetings, i hope you all are good.
After read lots a post in this Forum, I have find a VBA in this forum to copy files in .xmlx and other to do the same on .csv files to one single sheet.

Can it be possible the same VBA run it this two types of files? And copy them to a master WorkBook organize by the name of the folders?

In the case of . CSV files after the copy to the Master Workbook can it transform only the colluns in number to text.

I have a folder whit sub-folders and in that subfolders the files to merge (sometimes 1 unic file but at the end of each moth they are 20 files)


The post i read and use is this : https://www.mrexcel.com/board/threads/copy-specific-files-from-folder-and-sub-folder.1147092/

Can anybody help me please.

 

[MC01_]

Who can I use this for my needs
From this VBA i just merge only one file at time

Sub test()
Dim Wb1 As Workbook, Wb2 As WorkBook, Wb3 As Workbook
Dim MainBook As Workbook

'Open All workbooks first:
Set Wb1 = Workbooks.Open(" book1.xlsx")
Set Wb2 = Workbooks.Open(" book2.xlsx")
Set Wb3 = Workbooks.Open(" book3.xlsx")
Set MainBook = Workbooks.Open(" Masterbook.xlsx")

'Now, copy what you want from wb1:
wb1.Sheets("Sheet1").Cells.Copy
'Now, paste to Main worksheet:
MainBook.Sheets("Sheet1").Range("A1").PasteSpecial

'Now, copy what you want from wb2:
wb2.Sheets("Sheet1").Cells.Copy
'Now, paste to Main worksheet:
MainBook.Sheets("Sheet2").Range("A1").PasteSpecial

'Now, copy what you want from wb3:
wb3.Sheets("Sheet1").Cells.Copy
'Now, paste to Main worksheet:
MainBook.Sheets("Sheet3").Range("A1").PasteSpecial

'Close Wb's:
Wb1.Close
Wb2.Close
Wb3.Close
MainBook.Save
MainBook.Close

End Sub

Please Help