Newbie Run Time Error

H

have_a_cup

When using a Dim statement, is there any way to declare a generic value,
so that if there aren't actually 10 workbooks, the macro just ends...or,
how do I get around the run time 1004 error from happening / displaying
alert????

Dim x As Integer
Dim WB As String

For x = 1 To 10


WB = "G:\myFolder\TEST\RBA\RBA " & x & ".xls"
Workbooks.Open Filename:=WB


Next

End Sub
 
J

Jim Thomlinson

There is no way to avoid the error, but you can handle the error, something
like this...

Dim x As Integer
Dim WB As String
dim wbk as workbook

For x = 1 To 10
WB = "G:\myFolder\TEST\RBA\RBA " & x & ".xls"
on error resume next
set wbk = Workbooks.Open (Filename:=WB)
on error goto 0
if not wbk is nothing then
'the workbook exists so have at it...
endif
Next
End Sub
 
R

RB Smissaert

You can handle that in several ways, but maybe the simplest is just putting:
On Error Resume Next
before your line:
Workbooks.Open Filename:=WB

RBS
 

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