‘ VBA代码
    Dim Ref As Reference
    Dim 是否存在 As Boolean
    是否存在 = False
    For Each Ref In References
        If Ref.Name = 组件名称 Then 是否存在 = True
    Next
   
    If 是否存在 = False Then 'ADOX引用丢失
        msgbox ""
    End If

‘批处理命令
@ECHO off
 REGSVR32 "%cd%\msadox.dll" /s