import files to individual tabs

[quando]

How can I automatically import tsv (tab separated values) files into a single workbook, where each file will be on its own tab?

Thanks,

 

[RolfJ]

Assuming that the tab-delimited files are all located in a separate subfolder (and no other files are in that subfolder) and you will provide the name of that subfolder (in 2nd line of the code), this code should do the trick:

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

Hope this helped,
Rolf

 

[quando]

Worked beautifully. Thank you for your help.