import 1 line from txt file

[rhino4eva]

With ActiveSheet.QueryTables.Add(Connection:="TEXT;T:\JICU20190512123222.txt" _
, Destination:=Range("$A$1"))
.Name = "JICU20190512123222"
.TextFilePlatform = 850
.TextFileStartRow = 4
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 9)
.Refresh BackgroundQuery:=False


ok so I have a huge txt file but all I need is one line.
Line 4 has 3 columns of important info that I need to import
At the moment I resolved to delete anything below 4

Is there a cleaner way

 

[DanteAmor]

Try this

Sub test_line()
    Dim LineofText As Variant, wFile As String, n As Long
    wFile = "C:\trabajo\otro.txt"
    n = 1
    Open wFile For Input As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] 
    Do While Not EOF(1)
        Line Input [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] , LineofText
        If n = 4 Then
            cols = Split(LineofText, ";")
            Range("A1:C1").Value = Array(cols(0), cols(1), cols(2))
            Exit Do
        End If
        n = n + 1
    Loop
    Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] 
End Sub

OR

[COLOR=#333333]With ActiveSheet.QueryTables.Add(Connection:="TEXT;T:\JICU20190512123222.txt" _[/COLOR]
[COLOR=#333333], Destination:=Range("$A$1"))[/COLOR]
[COLOR=#333333].Name = "JICU20190512123222"[/COLOR]
[COLOR=#333333].TextFilePlatform = 850[/COLOR]
[COLOR=#333333].TextFileStartRow = 4[/COLOR]
[COLOR=#333333].TextFileParseType = xlDelimited[/COLOR]
[COLOR=#333333].TextFileSemicolonDelimiter = True[/COLOR]
[COLOR=#333333].TextFileColumnDataTypes = Array(1, 1, 1, 9)[/COLOR]
[COLOR=#333333].Refresh BackgroundQuery:=False
[/COLOR]end with

[COLOR=#0000ff]rows("2:" & rows.count).clearcontents[/COLOR]