要了解可用或正在Microsoft Excel中运行的任何特定应用程序的状态,请查看本文。如果应用程序可用或正在运行,我们将使用VBA代码检查返回“ True”,否则返回“ False”。

问题:我想在后台使用宏来识别特定的应用程序是否正在运行或是否已在系统中安装。

确定Outlook应用程序正在运行或可用;我们需要按照以下步骤启动VB编辑器:

单击“开发人员”选项卡。从“代码”组中选择“ Visual Basic”

image 1

  • 单击插入,然后单击模块

image 2

这将创建新的模块。在模块中输入以下代码

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]