如何判断word已经运行了？

cnmnqj · 发表于 2005-4-24 08:19

同题

守柔 · 发表于 2005-4-24 08:23

你在哪里判断？

langzi74 · 发表于 2006-3-23 08:28

以下是引用[I]守柔[/I]在2005-4-24 8:23:00的发言：[BR]你在哪里判断？

守柔老大，请问在excel中如何用vba判断？

守柔 · 发表于 2006-3-23 11:19

以下是引用[I]langzi74[/I]在2006-3-23 8:28:00的发言：[BR]
以下是引用[I]守柔[/I]在2005-4-24 8:23:00的发言：[BR]你在哪里判断？
守柔老大，请问在excel中如何用vba判断？

Function GetWordApp() As Boolean Dim myWdApp As Object On Error Resume Next Set myWdApp = GetObject(, "Word.Application") If Err.Number <> 0 Then Err.Clear GetWordApp = False Else GetWordApp = True End If Set myWdApp = Nothing End Function Sub Test() If GetWordApp Then MsgBox "Word程序已经运行!" Else MsgBox "Word程序未运行!" End If End Sub 可以以GETOBJECT或者CREATEOBJECT为关键字搜索本版，很多。

langzi74 · 发表于 2006-3-27 11:41

刚看到，谢谢老大，我自己运行看看！

		自动登录	找回密码
密码			免费注册

如何判断word已经运行了？

浏览过的版块