Micro that checks if file exists
 

Hi, everyone.
I have a micro that opens other files to copy data to this file. How can I
make it to skip a file that does not exist and continue to the next one?

Thanks for your help.

Set thisFile = Workbooks.Open("filename")
If Not thisFile Is Nothing Then
'your code
Else
'get the next
End If

--

HTH

RP
(remove nothere from the email address if mailing direct)


"pete" wrote in message
...
Hi, everyone.
I have a micro that opens other files to copy data to this file. How can
I
make it to skip a file that does not exist and continue to the next one?

Thanks for your help.

Bob,

Thanks for your clue. I still have a problem; if the file does not exist, I
have the "run-time error 1004" which terminates the macro because it will not
allow me to continue.

Anything else I need to add so I if it cannot find the file, it will go to
the next one?

Thanks,
Pete

Sorry, it shoule be error wrapped

On Error Resume Next
Set thisFile = Workbooks.Open("filename")
On Error Goto 0
If Not thisFile Is Nothing Then
'your code
Else
'get the next
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"pete" wrote in message
...
Bob,

Thanks for your clue. I still have a problem; if the file does not exist,
I
have the "run-time error 1004" which terminates the macro because it will
not
allow me to continue.

Anything else I need to add so I if it cannot find the file, it will go to
the next one?

Thanks,
Pete

Thanks again, Bob, for your timely fix. I almost got it, except the "Go to 0".
What can I substitute for "0"?

If you are talking about On Error Goto 0, that statement turns error trapping
off. If you mean a standard Goto statement (yes, it's still around), you have
to set up line numbers/labels and use those in your Goto statements.

On Wed, 23 Mar 2005 13:37:02 -0800, "pete"
wrote:

Thanks again, Bob, for your timely fix. I almost got it, except the "Go to
0".
What can I substitute for "0"?

Got it...
Working perfectly.

Million thanks to Bob and Myrna.

Hi Pete,
Could you make public all the code. Seems it is what I am looking for for a
long time.
Thanks,
veljo


"pete" kirjutas:

Got it...
Working perfectly.

Million thanks to Bob and Myrna.

Hi Veljo,

I used Bob's suggestion,
1.
On Errror Resume Next
Set nextFile = Workbooks.Open("filename")
On error Goto 0

This portion will get rid of the irritation "run-time error".

2.
If Not nextFile Is Nothing Then
...... begin your code
Else
End If