Проверьте, установлен ли MS Access

Question

Я ищу способ проверить, установлен ли MS Access, а затем, если это не выход из Sub или завершение работы остальной части модуля. Я натолкнулся на этот кусочек кода, но я не уверен, как его адаптировать в соответствии с моими потребностями.

Function ApplicationIsAvailable(ApplicationClassName As String) As Boolean 
' returns True if the application is available 
' example: If Not ApplicationIsAvailable("Outlook.Application") Then Exit Sub  
Dim AnyApp As Object 
    On Error Resume Next 
    Set AnyApp = CreateObject(ApplicationClassName) 
    ApplicationIsAvailable = Not AnyApp Is Nothing 
    Set AnyApp = Nothing 
    On Error GoTo 0 
End Function 

Благодарим вас за это, если кто-то может помочь.

Answer 1

В итоге я получил это, чтобы работать вскоре после того, как я разместил вопрос. В случае, если кому-то было любопытно, я использовал приведенный выше код для объявления функции, а затем в моем модуле, который я запускал, я использовал этот бит кода, чтобы определить, доступен ли он.

If ApplicationIsAvailable("Access.Application") = False Then 
MsgBox ("You must have Microsoft Access installed to use this function") 
Exit Sub 
End If