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)"

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)"

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)"