Thread: .txt import loop

Not tested but maybe:

Sub Import_Text()

Dim strFilePath As String
Dim strFileName As String
Dim wsWriteSheet As Worksheet

strFilePath = "C:\Test"

strFileName = Dir(strFilePath & "\*.txt")

Do While strFileName <> ""
    Open strFilePath & "\" & strFileName For Input As #1
    Set wsWriteSheet = Worksheets.Add(after:=Sheets(Sheets.Count))
    With wsWriteSheet
        .Range("A1") = Input(LOF(1), #1)
        .Name = strFileName
    End With
    Close
    strFileName = Dir()
Loop

End Sub

Dom

Each file in a separate worksheet in the same workbook:

 
Sub tst()
 c00 = "E:\"
 c01 = Dir(c00 & "*.txt")
  
 Do Until c01 = ""
  FileCopy c01, Replace(c01, ".txt", ".csv")
  With GetObject(Replace(c01, ".txt", ".csv"))
   .Sheets(1).Copy , ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
   .Close
  End With
  c01 = Dir
 Loop
End Sub