你可以通过全局的 Err 对象来得到具体的错误信息,如:Private Sub Command1_Click()
    Dim i As Long
    
    On Error GoTo errHandler
    
    
    i = 1 / 0
    Exit Sub
    
errHandler:
    MsgBox Err.Number & "-" & Err.Description
End Sub