excel copy 2nd column from multiple txt files

[bjcowen90000]

I have a folder with a lot of files of the form: defects_*.txt

Assuming the path to the directory containing these files is C:/Path, how can I load just the second column of these txt files into excel?

So column A would be the 2nd column of defects_002.txt, column B would be the 2nd column of defects_005.txt, etc (no constant increment). Can VBA do this, or do I need to use something else?

 

[sericom]

It should be possible, can you show some sample data in the text files.

 

[bjcowen90000]

For instance, one txt file is below. Noe that the letters are all on 1 line, and I don't care about the headers or the first column. In this case I would extract all the 0's, then open the next txt file and paste the 2nd column etc.

# "Timestep" "Ca_Vac"

109800 0

109801 0

109700 0

109701 0

109700 0

109701 0

<tbody>
</tbody>

 

[sericom]

Try this, change "Sheet1" if needed

 Sub textRead()
    Dim defects As String
    Const uPath As String = "C:\Path\"
    tFile = Dir(uPath & "defects_*.Txt")
    c = 1
    Do While tFile <> ""
        Open uPath & tFile For Binary As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] 
            defects = Space$(LOF(1))
            Get [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] , , defects
        Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] 
        dLines = Split(defects, vbCrLf)
        r = 1
        For i = 1 To UBound(dLines)
            Sheets("Sheet1").Cells(r, c) = Split(dLines(i))(1)
            r = r + 1
        Next
        tFile = Dir
        c = c + 1
    Loop
 End Sub

 

[bjcowen90000]

when I run it with my path, nothing seems to happen. my excel sheet is left blank

 

[Trebor76]

Note this has been cross-posted here