Using text files
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 |
Using text files
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 '------------------------------------------------------ --- Message posted from http://www.ExcelForum.com/ |
All times are GMT +1. The time now is 04:34 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com