该属性返回一个 Tasks 集合,该集合代表所有正在运行的应用程序。
expression.Tasks
expression 必需。该表达式返回一个 Application 对象。
有关返回集合中单独成员的信息,请参阅返回集合中的对象。
本示例显示计算器。如果计算器还没有运行,则 Word 启动该任务,然后显示计算器。
If Tasks.Exists("Calculator") Then
With Tasks("Calculator")
.Activate
.WindowState = wdWindowStateNormal
End With
Else
Shell "calc.exe"
Tasks("Calculator").WindowState = wdWindowStateNormal
End If
本示例查看 Microsoft Excel 是否正在运行。如果该任务正在运行,则本示例激活 Microsoft Excel;否则将显示一个消息框。
If Tasks.Exists("Microsoft Excel") = True Then
With Tasks("Microsoft Excel")
.Activate
.WindowState = wdWindowStateMaximize
End With
Else
Msgbox "Microsoft Excel is not currently running."
End If