在Excel VBA中处理简单错误

问题描述：

我需要一个简单的错误处理代码，用于我的小宏，我有搜索网页，但没有什么简单的，似乎都非常复杂。在Excel VBA中处理简单错误

我每周以.txt格式下载销售报告，我运行单独的宏来做东西，然后添加到母版页。由于该地区可能没有销售，所以不是每周都会下载销售报告。

我需要一个简单的错误处理程序，以便如果它找不到报告，它将移动到下一个子。

任何帮助表示赞赏

Sub MXM_POS() 

    Workbooks.OpenText Filename:="C:\Users\903270\Documents\Excel\MXMPOS*.txt" 

    ‘Run macro code 

    Run ("DLK_POS") 

End Sub

答

下面是一个简单的基本结构，你可以扩大需要：

Sub MXM_POS() 
    On Error GoTo ErrHandler 

    ' code here 

ExitSub: 
    ' shutdown code here 
    Exit Sub 

ErrHandler: 
    If Err.Number <> 0 Then 
     Dim mbr As VbMsgBoxResult 
     mbr = MsgBox(_ 
      "Error #" & Err.Number & ": " & Err.Description & vbNewLine & _ 
      "Would you like to continue?", vbExclamation Or vbYesNo) 

     If mbr = vbYes Then Resume ExitSub 
     Application.Quit 
    End If 
End Sub

当我渴望一个堆栈转储我构建的Source属性中Err对象使用与换行链接，然后仅在调用堆栈的顶部显示MsgBox结果，通常是启动代码的事件处理程序或用户调用的*宏。

在Excel VBA中处理简单错误

相关推荐