VB高手进,一个获得EXCEL对象的问题
发布网友
发布时间：29分钟前
共1个回答
热心网友
时间：10分钟前
扫描进程中的EXCEL.exe，如果没有就CreateObject，如果有就跳过这一句。以下是查找进程的代码：
On Error Resume Next
Dim s, objWMIService, colProcessList, objProcess
Dim mFind As Boolean
s="excel.exe"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name='" & s & "'")
For Each objProcess In colProcessList '查找进程
mFind = True
Next
If mFind Then '如果找到
'在此加入代码
Else '如果找不到
'在此加入代码
End If
