Using text files

  • Thread starter Thread starter Leho
  • Start date Start date
L

Leho

I have a problems working with files in excel vba.
Can somebody please tell me a little about this problem.

I just want to read from txt fail char-by-char and make a string from
each line and then work with these strings. Is it possible?

Here I'm just trying to do something with files. But no luck :(

Private Sub with_files()
Open "C:\WINDOWS\Desktop\Projekt\minu" For Random Access Read Write
lock Write As #3 Len = Len(" ")
Put #3, , "M"
' Here it says that bad record lenght and error 59.
Get #3, , loetud
MsgBox loetud
Close #3
End Sub
 
If you run the 'character' example, you will see that the output might
not be very useful for your purpose (includes end of line character
13). The 'get lines' one will probably be best. You will, of course,
need to point to one of your own files.

'---------------------------------------------------
Sub GET_CHARACTERS()
Dim MyChar
ToRow = 1
Open "C:\test.txt" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Get one character.
ActiveSheet.Cells(ToRow, 1).Value = MyChar
ToRow = ToRow + 1
Loop
Close #1 ' Close file.
End Sub

'-----------------------------------------------------
Sub GET_LINES_FROM_TEXTFILE()
Dim MyString As String
Dim ToRow As Long
'----------------------
ToRow = 1
Open "C:\test.txt" For Input As #1 ' Open file
Do While Not EOF(1) ' Check for end of file.
Line Input #1, MyString ' Read line of data.
ActiveSheet.Cells(ToRow, 1).Value = MyString
ToRow = ToRow + 1
Loop
Close #1 ' Close file.
End Sub
'------------------------------------------------------
 
Back
Top