Import specific row from multiple .csv files

Hi hobbes79
Please try the attached
With acknowlegement to Leith's Qs I have hardcoded the various parameters into my code at present - you will need to set these to suit your context/setup.
Also, this is my first attempt at using Microsoft Scripting Runtime so you will need to set a reference to this before you run the macro.
Assumptions for testing:
.. files with a .txt extension
.. the text files are in a single folder (I used 4 copies of your file (renamed 1 - 4) for testing)
.. outputted the file name before the data line (for testing)
.. that there are 10 lines of 'header' data in each file before the data starts
.. set the data line to extract to 10 (not 132) for testing - change 'recno'
Run macro called 'extractxt'

Thank you for your help to this point.

Leith, yes, I would want to change from row 132. Though I'm comfortable with this being hard coded and I'd just change it to suit.

barryleajo, thank you very much. But the assumption of .txt files is a problem. The files are in .csv format and stored on a server as read only. I converted the file to a .txt as a one off to allow me to attach it here (for some reason, the forum won't allow me to attach a .csv file). So it's a show stopper to have the .txt assumption. Sorry if I caused any confusion there.

snb, I tried running yours, and it works Thank you! But I'm having a problem - it's bringing the data in as one line like in the original csv. I try importing the data to excel as delimited with the delimiter being the comma, but it doesn't seem to be working. It's as if it can't see the comma. Any ideas?

Very close! Thank you for all your help to this point.

I'm struggling a bit I'm afraid. I put in the new code below, but I'm getting Runtime Error 424 and getting an "Object Required" error. Any tips would be appreciated.

Sub snb()
For Each it In CreateObject("scripting.filesystemobject").getfolder("c:\ep600").Files
Open it For Input As 1
c01 = c01 & vbCr & Split(Input(LOF(1), 1), vbCrLf)(132)
Close
Next
sn = Split(Mid(c01, 2), vbCr)

Cells(1).Resize(UBound(sn) + 1) = Application.Transpose(sn)

Set objRange = objExcel.Range("A1").EntireColumn
Set objRange2 = objExcel.Range("B1")

objRange.TextToColumns objRange2, , , , , , , , , , True

End Sub

You're awesome. Works great. Thank you very much.