在Excel VBA中處理簡單錯誤

Question

我需要一個簡單的錯誤處理代碼，用於我的小宏，我有搜索網頁，但沒有什麼簡單的，似乎都非常複雜。

我每週以.txt格式下載銷售報告，我運行單獨的宏來做東西，然後添加到母版頁。由於該地區可能沒有銷售，所以不是每週都會下載銷售報告。

我需要一個簡單的錯誤處理程序，以便如果它找不到報告，它將移動到下一個子。

任何幫助表示讚賞

Sub MXM_POS() 

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

    ‘Run macro code 

    Run ("DLK_POS") 

End Sub 

Answer 1

下面是一個簡單的基本結構，你可以擴大需要：

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結果，通常是啓動代碼的事件處理程序或用戶調用的頂級宏。