Open up all .txt files and import into Excel workbook off partial conditions

[ItalianPlatinum]

I am looking for a way to open up .txt files and move them to an excel workbook to then format it to the way I want to so its legible. The issue I am running into is the files naming conventions are very unique. So I don't know how to call the VBA to open and loop through each file. For example:

CONTROL_FUNNA_US_D_20240408182134
CONTROL_FOFNA_US_D_20240408182052

Each file will have multiple occurrences and are saved with the Year month date hour minute and seconds at the end (YYYYMMDDHHMMSS). But for the sake of what I am trying to do I just need one by one open inserted into its respective sheet and formatted. With the file name next to the record that it came from. I am sure there is an easy way to do it but not sure I can currently find a way

FUN has its own sheet
FOF has is own sheet

Appreciate you taking the time to look as always

 

[Joe4]

Take a look here, which shows you how to loop through all the files in a folder with a specific partial value in the file name:

Loop through folder and find files with specific name

I need to loop through a specific folder and find all files that have the phrase '(Full)' in the filename. If it finds I file I need it to run some code that's yet to be written. I've searched the net and can't find anything that does what I though would be a simple task - can anyone help?

www.mrexcel.com

 

[ItalianPlatinum]

Thanks Joe I will take a look and come back if I have questions

 

[ItalianPlatinum]

Just want to share just in case anyone else would find use. I added additional components to capture it to pull based off todays date in the file name and create sPartial just for ease of reviewing.

Option Explicit
Sub Summary()
Dim fName As String, fPath As String, sPartial As String, wb As Workbook

fPath = "\\XXX\XXXX\XXX\XXXX\XXXX\XXXXXX" 'substitute actual path is not in same directory as host workbook.
sPartial = "CONTROL_FUNNA_US_D_" & Year(Now) & IIf(Len(Month(Now)) = 1, "0" & Month(Now), Month(Now)) & IIf(Len(Day(Now)) = 1, "0" & Day(Now), Day(Now)) & "*.txt"

If Right(fPath, 1) <> "\" Then fPath = fPath & "\"
fName = Dir(fPath & sPartial)
    Do While fName <> ""
        Set wb = Workbooks.Open(fPath & fName)
        'enter yet to be written code here
        wb.Close 'True or False to either save or not save workbook after code runs.
        fName = Dir
    Loop

End Sub