Copy specific lines from multiple text files into excel

[aqeel]

Hey,

I have multiple text files in a folder containing analysis results of samples..

where the second line represent (number of the sample) and 12th line represents (results of analysis)

The text file looks like this:

1st line: text
2nd line: text
....
12th line: text text text

I want to copy second and 12th line into 1 row of 4 cells in an excel sheet... all copied data are in numbers

 

[Marc L]

Hi,​

​

what is the end of line character(s) sequence ?​

​

Or better just link some text files and the expected result workbook on a files host website like Dropbox …​

 

[aqeel]

Hi,​

​

what is the end of line character(s) sequence ?​

​

Or better just link some text files and the expected result workbook on a files host website like Dropbox …​

Hey thanks for replying..

here's the a sample file

example.txt

Shared with Dropbox

www.dropbox.com

and this is what I want to copy, and how to have them on excel (pics attached)

per in mind.. I have multiple text files in a folder all having the same structure, and I want to copy all into excel

Thanks in advance

 

[Marc L]

According to your attachment a VBA demonstration for starters :​

Sub Demo1()
    Dim P$, T$, F%, R&, S$()
        P = ThisWorkbook.Path & "\"
        T = Dir$(P & "*.txt"):  If T = "" Then Beep: Exit Sub
        F = FreeFile
        R = 1
        [A1].CurrentRegion.Offset(1).Clear
        Application.ScreenUpdating = False
    Do
        Open P & T For Input As #F
        S = Split(Input(LOF(F), #F), vbCrLf)
        Close #F
        R = R + 1
        Cells(R, 1).Resize(, 4).Value2 = Evaluate("{" & S(1) & "," & Replace(S(11), vbTab, ",") & "}")
        T = Dir$
    Loop Until T = ""
        Application.ScreenUpdating = True
End Sub

 

[aqeel]

According to your attachment a VBA demonstration for starters :​

Sub Demo1()
    Dim P$, T$, F%, R&, S$()
        P = ThisWorkbook.Path & "\"
        T = Dir$(P & "*.txt"):  If T = "" Then Beep: Exit Sub
        F = FreeFile
        R = 1
        [A1].CurrentRegion.Offset(1).Clear
        Application.ScreenUpdating = False
    Do
        Open P & T For Input As #F
        S = Split(Input(LOF(F), #F), vbCrLf)
        Close #F
        R = R + 1
        Cells(R, 1).Resize(, 4).Value2 = Evaluate("{" & S(1) & "," & Replace(S(11), vbTab, ",") & "}")
        T = Dir$
    Loop Until T = ""
        Application.ScreenUpdating = True
End Sub

Hey,
sorry, didn't get the notification for your reply
does this code pull the data from multiple txt files in a single folder?
because I don't think so..

 

[Marc L]

Yes as you can see within this demonstration and just trying it obviously before asking …​