Error trap on Workbooks.Open

B

Barb Reinhardt

I have a for next loop with the following in it.

For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
Set oWB = Workbooks.Open(Cells(i, "B"), ReadOnly = True, _
UpdateLinks = False)
aWS.Range("H" & i).Value =
ActiveWorkbook.BuiltinDocumentProperties("Last Author").Value
aWS.Range("I" & i).Value =
ActiveWorkbook.BuiltinDocumentProperties("Creation Date").Value
aWS.Range("J" & i).Value =
ActiveWorkbook.BuiltinDocumentProperties("Last Save Time").Value
oWB.Close SaveChanges:=False
aWB.Save
Next i
It works UNTIL the workbook doesn't exist. What do I need to add for error
trapping?

Thanks,
Barb Reinhardt
 
D

Dave Peterson

set oWb = nothing
on error resume next
set owb = workbooks.open(....)
on error goto 0

if owb is nothing then
'it didn't open--error indicator or what
else
'do your work
end if
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top