Reading a text file ?

[WTG]

Help!

Is there a way to automate the importation of a text file in to Excel,
with out having to use the import text wizard every time?

Below is a sample the the file and the inofrmation I need. ( the file
is actually much larger then this) but this will give you an idea. The
actual numbers will change from day to day,and so will the amount of
rows. But the file format and the number of columns will always be the
same. and the information I need will always be the same columns.

I've read books, tutorials and even information on dos batch files.

I'm stuck, I have my whole spread sheet planned out. All my reports
and summarys but it's usuless without the ability to import this
information.

SOMEONE PLEASE HELP !!!


Thank you.

WTG.

SAMPLE:

Actual Text File:

000000000 07:5007:50 PON 0000<MN>22400130
000000000 08:1608:16 PON 0000<MN>22400140
000000000 11:2211:22 PON 0000<MN>22400120
000000000 11:4711:47 PON 0000<MN>22400115
000000000 06:1306:13 PON 0000<MN>22400155

Actual Information needed:

07:50 PON 22400130
08:16 PON 22400140
11:22 PON 22400120
11:47 PON 22400115
06:13 PON 22400155

 

[Steve]

You could use Line Input #

From help:
Dim TextLine
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, TextLine ' Read line into variable.
Debug.Print TextLine ' Print to the Immediate window.
Loop
Close #1 ' Close file.
You'd need to the mid function on Textline to assign values to
variablesHTHSteve

 

[WTG]

Thanks I'll give it a try

You could use Line Input #

From help:
Dim TextLine
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, TextLine ' Read line into variable.
Debug.Print TextLine ' Print to the Immediate window.
Loop
Close #1 ' Close file.
You'd need to the mid function on Textline to assign values to
variablesHTHSteve