Option Explicit
Const TSV_FOLDERNAME = "{you need to provide the path name"
Sub ImportTABDelimitedFiles()
Dim currentWb As Workbook
Set currentWb = ActiveWorkbook
Dim fs As Object
Dim objFolder As Object
Dim objFile As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set objFolder = fs.GetFolder(TSV_FOLDERNAME)
For Each objFile In objFolder.Files
Workbooks.OpenText Filename:= _
objFile.Path, _
Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
Sheets(1).Copy After:=currentWb.Sheets(Sheets.Count)
Workbooks(Workbooks.Count).Close (False)
Next
End Sub