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

當我希望進行堆棧轉儲時，可以使用換行連接在Err對象的Source屬性中進行構造，然后僅在調用堆棧的頂部（通常是啟動代碼的事件處理程序）或頂部顯示MsgBox結果。用戶調用的一級宏。