![]() |
|
|||||||
|
|
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] |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
How to import multiple text file data into word
|
mizankabir | Word VBA | 7 | 09-15-2023 10:27 PM |
macro, data import from the ONLY text file in current folder
|
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 |
Import Text from File - Line Spacing
|
marshalx | Word | 2 | 10-28-2009 02:37 AM |
Help please: Keeping spaced characters on one line
|
EtienneOBrien | Word | 3 | 12-24-2008 07:05 AM |