ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   text files (https://www.excelbanter.com/excel-programming/284072-text-files.html)

Stuart[_12_]

text files
 
Is it possable to extract the data held within text files on the hard drive
directly into a worksheet through VBA.



Stuart[_12_]

text files
 

Think I have sort of worked it out myself, however could someone explain
what "EOF(1)" is all about, and do i really have to do this one char at a
time. Also, how much info could be got using this method (obviously i would
not be putting it into a msgbog)

Sub getInfo()

Dim q, theData
Open "c:\Active\temp\testfile.txt" For Input As #1
Do While Not EOF(1)
q = Input(1, #1)
theData = theData & q
Loop
Close #1
MsgBox theData

End Sub


Stuart wrote in message
...
Is it possable to extract the data held within text files on the hard

drive
directly into a worksheet through VBA.





Tom Ogilvy

text files
 
In Excel 2000 and later, you can do Data=Get External Data = Import Text
file.

Turn on the macro recorder while you do it manually to get the code you
need.

In earlier versions you can use low level file io or you can open it as a
new workbook, copy it across, then close the original file without saving.

--
Regards,
Tom Ogilvy

Stuart wrote in message
...
Is it possable to extract the data held within text files on the hard

drive
directly into a worksheet through VBA.





Tom Ogilvy

text files
 
EOF is end of file.

You could actually read it all in, all at once.

However, it depends on how you want to process it.

will each line in the text file be spread over multiple columns, or does all
the data in each line go in a single cell.

If the latter, you might want to use line input

--
Regards,
Tom Ogilvy

Stuart wrote in message
...

Think I have sort of worked it out myself, however could someone explain
what "EOF(1)" is all about, and do i really have to do this one char at a
time. Also, how much info could be got using this method (obviously i

would
not be putting it into a msgbog)

Sub getInfo()

Dim q, theData
Open "c:\Active\temp\testfile.txt" For Input As #1
Do While Not EOF(1)
q = Input(1, #1)
theData = theData & q
Loop
Close #1
MsgBox theData

End Sub


Stuart wrote in message
...
Is it possable to extract the data held within text files on the hard

drive
directly into a worksheet through VBA.








All times are GMT +1. The time now is 03:09 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com