word的类名是什么? 在VB中,计算器的类名为SciCalc,但Word、Excel、PowerPoint的类名是什么? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 chenjl1031,你好,我是初学者,现在要在一个程序中检查WOrd Excel powerpoint有没有运行,如何查,上网查到了用API 函数findwindows,但要用类来检查,我没有它们的类名,请大侠帮忙! chenjl1031,你好,我是初学者,现在要在一个程序中检查WOrd Excel powerpoint有没有运行,如何查,上网查到了用API 函数findwindows,但要用类来检查,我没有它们的类名,请大侠帮忙! On Error Resume NextDim objSet obj = GetObject(, "Excel.Application")If Not obj Is Nothing Then MsgBox "Running"End If *****************************************************************************欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/ If obj Is Nothing ThenElse MsgBox "Running"End If 如果 Office 没有安装,创建对象将不会成功!判断一下即可! Set obj = GetObject(, "Excel.Application") ocx为什么会判断成“开机自动运行的程序”呢? 如何 复制 对象数组 最小化到托盘后怎么让他还原 什么是"非技术问题 "和"技术问题 " 今天郁闷疯掉了,散300分,闲人进来说两句让我舒服一点的话吧(3)。 菜鸟求助:word vba对于文档中canvas的剪切粘贴后canvas名称改变? 我想实现这样一个功能,在程序没有操作一定时间后,就弹出系统登录窗口,该怎么写! 关于sql存储过程,进来看看吧! ADO问题征解!谢谢大家,我都没治了! 结束程序用 Unload Me 好还是用 End 好? 如何循环提取richtextbox中相同的内容? vb的mschart问题
Dim obj
Set obj = GetObject(, "Excel.Application")
If Not obj Is Nothing Then
MsgBox "Running"
End If
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/
MsgBox "Running"
End If
如果 Office 没有安装,创建对象将不会成功!判断一下即可!