Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
opening text file triggers vb error
What is logFileName equal to?
Is #1 still open from a previous operation? -Merk 11/25/03 10:56AM I have the following problem. In the code below, opening the file triggers an error. If I comment out the on Error, the file appears to open just fine and is read from appropriately. The line in question is "Open logFileName For Input As #1" . I left in all the code but it is irrelavant (I think) since the code always dies on the open statement. What am I doing wrong? Thank you for your help. Please kindly email me at my email address if possible. -Elie On Error GoTo SNAFU Open logFileName For Input As #1 For i = 0 To numPerms Line Input #1, textLine If (x) Then values = Split(textLine, Chr(9)) On Error GoTo SNAFU With STARTCELL For xx = 0 To mapSize - 1 .Offset(i - 1, map(xx).Text).Value = values(xx + 1) Next xx End With Else x = True End If Next i Close #1 Exit Sub SNAFU: MsgBox "There was one or more problems with the file ", _ vbCritical, "Data Read Error (-201)" |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
opening text file triggers vb error
I have the following problem. In the code below, opening the file
triggers an error. If I comment out the on Error, the file appears to open just fine and is read from appropriately. The line in question is "Open logFileName For Input As #1" . I left in all the code but it is irrelavant (I think) since the code always dies on the open statement. What am I doing wrong? Thank you for your help. Please kindly email me at my email address if possible. -Elie On Error GoTo SNAFU Open logFileName For Input As #1 For i = 0 To numPerms Line Input #1, textLine If (x) Then values = Split(textLine, Chr(9)) On Error GoTo SNAFU With STARTCELL For xx = 0 To mapSize - 1 .Offset(i - 1, map(xx).Text).Value = values(xx + 1) Next xx End With Else x = True End If Next i Close #1 Exit Sub SNAFU: MsgBox "There was one or more problems with the file ", _ vbCritical, "Data Read Error (-201)" |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
opening text file triggers vb error
Merk-
Thanks for your reply. logFileName changes but in this case is equal to "d:\Users\Elie\exp11\KeptPromises0-359.txt" . I am new to vb in general so I don't know the technical deatils of file opnening and closing. However, if the macro crashed in the middle of the below loop (brought up a runtime error and I stopeed the execution) before I had the goto statement, and the file was not properly closed in the code, would that leave #1 open? If so what needs to be done. "Merkling, wrote in message ... What is logFileName equal to? Is #1 still open from a previous operation? -Merk 11/25/03 10:56AM On Error GoTo SNAFU Open logFileName For Input As #1 For i = 0 To numPerms Line Input #1, textLine If (x) Then values = Split(textLine, Chr(9)) On Error GoTo SNAFU With STARTCELL For xx = 0 To mapSize - 1 .Offset(i - 1, map(xx).Text).Value = values(xx + 1) Next xx End With Else x = True End If Next i Close #1 Exit Sub SNAFU: MsgBox "There was one or more problems with the file ", _ vbCritical, "Data Read Error (-201)" |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Resolve Error in opening Excel File zip file from a CD? | Excel Discussion (Misc queries) | |||
Macro error opening text file | Excel Discussion (Misc queries) | |||
Error opening edited XML file - Where is the error log? | Excel Discussion (Misc queries) | |||
Error when opening an excel file | Excel Discussion (Misc queries) | |||
"Unable to read file" error message when opening a Excel file that contains a PivotTable report. | Charts and Charting in Excel |