View Single Post
 
Old 02-01-2013, 08:30 PM
omahadivision omahadivision is offline Windows 7 32bit Office 2007
Novice
 
Join Date: Oct 2012
Posts: 28
omahadivision is on a distinguished road
Default

Quote:
Originally Posted by macropod View Post
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!
Reply With Quote