VB高手进,一个获得EXCEL对象的问题

发布网友发布时间：2024-10-04 13:06

共1个回答

热心网友时间：2024-10-04 13:25

扫描进程中的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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com