如何阻止excel运行所有的错误

我有以下代码来处理我的错误：

Sub some_sub() On Error GoTo error1 Some code here On Error GoTo error2 Some more code here On Error GoTo error3 final piece of code here Exit Sub error1 MsgBox "Claims followup.xlsm is not open." & Chr(10) & Chr(10) & "Open the file in read/write" error2 MsgBox "Please make sure that the Claims followup file is open." & Chr(10) & Chr(10) & "If the file is open make sure that you the Solicitation Number is written correctly." error3 MsgBox "Your Claim followup file is in -read only- mode. Your changes may not be saved" End Sub 

 Sub some_sub() On Error GoTo error1 Some code here On Error GoTo error2 Some more code here On Error GoTo error3 final piece of code here Exit Sub error1 MsgBox "Claims followup.xlsm is not open." & Chr(10) & Chr(10) & "Open the file in read/write" error2 MsgBox "Please make sure that the Claims followup file is open." & Chr(10) & Chr(10) & "If the file is open make sure that you the Solicitation Number is written correctly." error3 MsgBox "Your Claim followup file is in -read only- mode. Your changes may not be saved" End Sub 

但是，当检测到“error1”时，它也会触发“error2”和“error3”，但是我只想让它触发“error1”。 如果“error2”触发“error3”，也会触发。 而当error3被触发时，它是唯一的，所以它从它发现的错误上下运行。

我的问题是：我怎样才能改变这个代码，所以它只会触发错误之一的错误？

在此先感谢您的帮助。

Answer 1

尝试在消息框之后添加一行Exit Sub 。 在error1的消息框之后继续执行。

所以应该看起来像这样：

 Exit Sub error1 MsgBox "Claims followup.xlsm is not open." & Chr(10) & Chr(10) & "Open the file in read/write" Exit Sub error2 MsgBox "Please make sure that the Claims followup file is open." & Chr(10) & Chr(10) & "If the file is open make sure that you the Solicitation Number is written correctly." Exit Sub error3 MsgBox "Your Claim followup file is in -read only- mode. Your changes may not be saved" Exit Sub End Sub 

Answer 2

如果您试图区分错误，您可以使用Err.Number并捕获具体的错误，并相应地显示消息，所以你应该这样做：

  `Sub some_sub() On Error GoTo errorHandler Some code here Exit Sub errorHandler: if Err.Number= Err no corresponds to Claims followup.xlsm is not open MsgBox "Claims followup.xlsm is not open." & Chr(10) & Chr(10) & "Open the file in read/write" elseif Err.Number = Err no corresponds to Solicitation Number is written correctly MsgBox "Please make sure that the Claims followup file is open." & Chr(10) & Chr(10) & "If the file is open make sure that you the Solicitation Number is written correctly." elseif Err.Number = Err no corresponds to Claim followup file is in -read only- mode MsgBox "Your Claim followup file is in -read only- mode. Your changes may not be saved" End Sub 

希望这可以帮助！

Answer 3

尽量避免在第一个地方的错误。 对于意想不到的错误，请在您的error handling程序中使用Select...Case ，并让代码退出同一位置的过程，以便执行所有必需的整理。

我已经添加了一些检查文件是打开还是存在的函数。

 Sub some_sub() Dim x As Long Dim y As Long Dim wrkBk As Workbook Dim wrkSht As Workbook Dim sPath As String, sFile As String On Error GoTo ErrorHandler sPath = "C:\" sFile = "Claims followup.xlsm" 'Avoid error by checking file exists and is open. If FileExists(sPath & sFile) Then 'Avoided Error1 & 2 completely by checking if the file is open first. If WorkBookIsOpen(sPath & sFile) Then Set wrkBk = Workbooks(sFile) Else Set wrkBk = Workbooks.Open(sPath & sFile) End If 'Avoid error 3 by checking if it's read only first. If Not wrkBk.ReadOnly Then 'These all throw errors. x = "A" y = 0 Debug.Print 20 / y Set wrkSht = ThisWorkbook.Worksheets("Non Existent Worksheet") End If End If On Error GoTo 0 SingleExitPoint: 'Tidy up, close connections, etc.... Exit Sub ErrorHandler: Select Case Err.Number Case 13 'Type Mismatch x = 0 Resume Next 'Continue on the line following the error. Case 11 'Division by zero y = 2 Resume 'Continue on the line that caused the error. Case 9 'Subscript out of range Resume SingleExitPoint End Select End Sub Public Function WorkBookIsOpen(FullFilePath As String) As Boolean Dim ff As Long On Error Resume Next ff = FreeFile() Open FullFilePath For Input Lock Read As #ff Close ff WorkBookIsOpen = (Err.Number <> 0) On Error GoTo 0 End Function Public Function FileExists(ByVal FileName As String) As Boolean Dim oFSO As Object Set oFSO = CreateObject("Scripting.FileSystemObject") FileExists = oFSO.FileExists(FileName) End Function