如何判定Excel已经打开？

Question

Dim appXls As Excel.ApplicationPrivate Sub Form_Load()    On Error GoTo ErrHandler
    
    Set appXls = GetObject(, "Excel.Application")
    
    '...
    
    Set appXls = Nothing
    
    Exit Sub
    
ErrHandler:    If Err.Number = 429 Then ' Excel Application has not been opened.
    
        '...
        
        Resume
        
    End If
    
End Sub