PDA

View Full Version : Solved: Error Checking against opening file



YellowLabPro
04-11-2007, 01:15 PM
Ran into a small problem, don't know what is causing it:

I am getting an error: Object Variable not set or With Block not set on the following line:
If iStatus Then 'workbook isn't open
Sub OpenUpload()
Dim wbU As Workbook
Dim sPath As String
Dim iStatus As Error

sPath = "H:\8-27-06\My Documents\Excel\EC Excel Files\ecboardco uploaded files\"
Err.Clear
On Error Resume Next
Set wbU = Workbooks("Complete_Upload_File.xls")
iStatus = Err
On Error GoTo 0
If iStatus Then 'workbook isn't open
Workbooks.Open sPath & wbU
'Else: wbU.Activate
End If
End Sub

If I run it w/out the error checking the workbook opens fine:

Workbooks.Open sPath & ("Complete_Upload_File.xls")
Set wbU = Workbooks("Complete_Upload_File.xls")

geekgirlau
04-16-2007, 03:12 AM
Sub OpenUpload()
Dim wbU As Workbook
Dim sPath As String

sPath = "H:\8-27-06\My Documents\Excel\EC Excel Files\ecboardco uploaded files\"

On Error Resume Next
Set wbU = Workbooks("Complete_Upload_File.xls")

If Err.Number <> 0 Then 'workbook isn't open
On Error GoTo 0
Workbooks.Open sPath & wbU
'Else: wbU.Activate
End If
End Sub