Error Handling

[jgelpi16]

Can you use multiple "On Error Go To" within the same Sub? What I would like to do is check for an export error on a couple different exports that occur in the same event.



i.e.

If Export1 fails due to file already being there I want to rename my export file "FileExport1_1" instead of "FileExport1"

If Export2 fails due to file already being there I wan to do the same thing, but it would be a different file name ("FileExport2_1" as opposed to "FileExport2").

There may be a different way to accomplish what I want to do, and if so I am all ears.

[weekend00]

just check file existance then export

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

If Not fso.FileExists(fileNameWithPath) Then
export to file1
else
export to file2
end if

[ajetrumpet]

in addition to weekend's solution, did you know you can use the DIR() function to check a file's existence? The LEN function will return '0' if the file path name does not exist:

LEN(dir("c:\myNonExistentFileName.txt"))

The answer will be 0 in this case.

[weekend00]

in addition to weekend's solution, did you know you can use the DIR() function to check a file's existence? The LEN function will return '0' if the file path name does not exist:

LEN(dir("c:\myNonExistentFileName.txt"))

The answer will be 0 in this case.

WOW! I never know that. it's much more simple.

[jgelpi16]

Great tips from both. Thanks a lot!!