Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Exit sub only and only if there is an error in the procedure.
Hi,
I want a code which will exit the macro(Procedure) only and only if there an error in the procedure. Here is the code which i wrote but after the error message it continues to run the next procedure and i want it to it to exit. If there is no error it comes on the exit sub and stops the macro. Sub TLPColl() On error goto Jumpexit workbook.open "XXXX" Jumpexit: Msgbox "Kindly mention the path where the raw file is saved in Cell D5 of Summary Tab" Exit sub 'here are my procedure Exit Sub Kindly help. Regards Heera |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Exit sub only and only if there is an error in the procedure.
Hi
I would rather check if the file exists than rely on an error. Look at this: Sub TLPColl() Set fs = CreateObject("Scripting.FileSystemObject") a = fs.Fileexists(MyFile) If a = False Then ' File don't exists in current folder MsgBox "Kindly mention the path where the raw file is saved in Cell D5 of Summary Tab" Exit Sub Exit Sub Workbook.Open Filename:="XXXX.xls" 'here are my procedure End Sub Regards, Per "Heera" skrev i meddelelsen ... Hi, I want a code which will exit the macro(Procedure) only and only if there an error in the procedure. Here is the code which i wrote but after the error message it continues to run the next procedure and i want it to it to exit. If there is no error it comes on the exit sub and stops the macro. Sub TLPColl() On error goto Jumpexit workbook.open "XXXX" Jumpexit: Msgbox "Kindly mention the path where the raw file is saved in Cell D5 of Summary Tab" Exit sub 'here are my procedure Exit Sub Kindly help. Regards Heera |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Exit sub only and only if there is an error in the procedure.
I think I would put it in this order. that way, if it goes to Jumpexit, it
is unlikelty to run the main code. Sub TLPColl() On error goto Jumpexit workbook.open "XXXX" 'here are my procedure Jumpexit: Msgbox "Kindly mention the path where the raw file is saved in Cell D5 of Summary Tab" Exit sub "Heera" wrote: Hi, I want a code which will exit the macro(Procedure) only and only if there an error in the procedure. Here is the code which i wrote but after the error message it continues to run the next procedure and i want it to it to exit. If there is no error it comes on the exit sub and stops the macro. Sub TLPColl() On error goto Jumpexit workbook.open "XXXX" Jumpexit: Msgbox "Kindly mention the path where the raw file is saved in Cell D5 of Summary Tab" Exit sub 'here are my procedure Exit Sub Kindly help. Regards Heera |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Exit a Procedure from a Sub within a sub | Excel Discussion (Misc queries) | |||
run procedure when exit design mode | Excel Programming | |||
run procedure when exit design mode | Excel Discussion (Misc queries) | |||
What is procedure to exit formula auditing mode? | Excel Discussion (Misc queries) | |||
Opening a UserForm causes a crash in the Exit procedure (Which is never called) | Excel Programming |