Microsoft Office Forums - View Single Post - How to import a text file but skip the first line regardless of characters?

omahadivision · 02-01-2013, 08:30 PM

Quote:

Originally Posted by macropod

Try:

Code:

  Open Fname For Input As #1
  iRow = 0
  Do While Not EOF(1)
    Line Input #1, StrData
    While InStr(StrData, "  ") > 0
      StrData = Replace(StrData, "  ", " ")
    Wend
      If iRow > 0 Then Cells(iRow, 2) = Split(StrData, " ")(1) ' This line puts the imported values into the excel sheet
     iRow = iRow + 1
  Loop
  Close 1

Brilliant. Thanks!