アプリケーションは、Microsoft ExcelでVBAを使用して利用可能であるかどうかを判断し
Microsoft Excelで使用可能な、または実行されている特定のアプリケーションのステータスを確認するには、この記事を参照してください。 VBAコードを使用して、アプリケーションが使用可能または実行中の場合は「True」を返すか、そうでない場合は「False」を返すかどうかを確認します。
質問：特定のアプリケーションが実行されているか、システムで使用可能/インストールされているかをバックグラウンドで識別するマクロが必要です。
Outlookアプリケーションが実行中または使用可能であることを識別するため。 VBエディターを起動するには、以下の手順に従う必要があります。
[開発者]タブをクリックし、[コード]グループから[VisualBasic]を選択します
-
[挿入]をクリックしてから[モジュール]をクリックします
これにより、新しいモジュールが作成されます。モジュールに次のコードを入力します
Function ApplicationIsRunning(ApplicationClassName As String) As Boolean
' returns True if the application is running
' example: If Not ApplicationIsRunning("Outlook.Application") Then Exit Sub
Dim AnyApp As Object
On Error Resume Next
Set AnyApp = GetObject(, ApplicationClassName)
ApplicationIsRunning = Not AnyApp Is Nothing
Set AnyApp = Nothing
On Error GoTo 0
End Function
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
私たちのブログが気に入ったら、Facebookで友達と共有してください。また、TwitterやFacebookでフォローすることもできます。
_私たちはあなたからの連絡をお待ちしております。私たちの仕事を改善、補完、または革新し、あなたのためにそれをより良くする方法を教えてください。 [email protected]_までご連絡ください