Automatically Convert Txt files in a folder to Excel

Good Day!

I have text files that I have to save as Excel for another function to work. Is there a way to automate this, such as to create a folder that through VBA or Macro would convert all files in that folder to Excel?

I am just trying to reduce steps in the current process.. Any help or direction would be greatly appreciated..

Thanks.

-Tommy

Is it a delimited file? IF so, maybe attach a simple obfuscated file so that we can best help. Would it become an XLSX file?

Thanks for the reply.. The file is delmited... I would like it to become an XLSX file..

Thanks.

-Tommy

If the txt files ar delimited semicolon, the following code can be usefull.

Sub convert()
    Dim strDir As String
    Dim strFile As String
    Dim intPos As Integer
    
    strDir = ActiveSheet.Cells(1, 1).Value
    
    If Left(strDir, 1) <> "\" Then strDir = strDir & "\"
    intPos = Len(strDir)
    strFile = Dir(strDir & "*.txt")
    Do While Len(strFile) > 0
        Workbooks.OpenText strDir & strFile, , , xlDelimited, , , , True
        ActiveWorkbook.SaveAs strDir & Left(ActiveWorkbook.Name, Len(strFile) - 4) & ".xlsx", FileFormat:=xlOpenXMLWorkbook
        strFile = Dir
    Loop
    
End Sub

HTH

Thanks for the code.. please advise on where to paste it..

Very much appreciate the assistance..

-Tommy

Made a few changes in the code:
1. your file is tab-delimited, so I changed te paramater after the opentext method to tab:=true
2. After saving the file as an xlsx-file it has to be closed obviously... my bad

Sub convert()
    Dim strDir As String
    Dim strFile As String
    Dim intPos As Integer
    
    strDir = ActiveSheet.Cells(1, 1).Value
    
    If Left(strDir, 1) <> "\" Then strDir = strDir & "\"
    intPos = Len(strDir)
    strFile = Dir(strDir & "*.txt")
    Do While Len(strFile) > 0
        Workbooks.OpenText strDir & strFile, , , xlDelimited, , , Tab:=True
        ActiveWorkbook.SaveAs strDir & Left(ActiveWorkbook.Name, Len(strFile) - 4) & ".xlsx", FileFormat:=xlOpenXMLWorkbook
        ActiveWorkbook.Close False
        strFile = Dir
    Loop
    
End Sub

The code can be placed in a xlsm-file. Select the sheet with the target-directory in cell A1. Right-click on the sheet tab, click on add code and paste the code.
Run the code while the sheet with the target-directory is selected by pressing [alt]+[F8] or create an object to which you connect the macro.

See attached file for an example.

---
Good luck

Dear Tommy,

I would appreciate a response to my last post. Did my example help you?

Ton.