0
我正在尋找一種方法來檢查MS Access是否安裝,然後如果它不是Exit Sub或完成運行模塊的其餘部分。我遇到了這樣的代碼,但我不確定如何調整它以適應我的需要。檢查MS Access是否安裝
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
如果有人能夠協助,請提前致謝。