![]() |
|
|
Thread Tools | Display Modes |
#7
|
||||
|
||||
![]()
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] |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
mizankabir | Word VBA | 7 | 09-15-2023 10:27 PM |
![]() |
ue418 | Excel Programming | 5 | 10-28-2017 12:52 PM |
Junk characters (box-like characters) in Word file | Sashikala | Word | 1 | 04-20-2010 02:03 PM |
![]() |
marshalx | Word | 2 | 10-28-2009 02:37 AM |
![]() |
EtienneOBrien | Word | 3 | 12-24-2008 07:05 AM |