Home |
Search |
Today's Posts |
#1
|
|||
|
|||
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. |
#2
|
|||
|
|||
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. |
#3
|
|||
|
|||
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 |
#4
|
|||
|
|||
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 |
#5
|
|||
|
|||
Thanks again, Bob, for your timely fix. I almost got it, except the "Go to 0".
What can I substitute for "0"? |
#6
|
|||
|
|||
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"? |
#7
|
|||
|
|||
Got it...
Working perfectly. Million thanks to Bob and Myrna. |
#8
|
|||
|
|||
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. |
#9
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Opening a file with code without a set file name | Excel Discussion (Misc queries) | |||
Locating a file in excel with a partial file name. | Excel Discussion (Misc queries) | |||
Locating a file in excel with a partial file name. | Excel Discussion (Misc queries) | |||
Locating a file in excel with a partial file name. | Excel Discussion (Misc queries) | |||
Read Text File into Excel Using VBA | Excel Discussion (Misc queries) |