View Single Post
 
Old 02-01-2013, 07:15 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,953
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote