GetObject(, "Excel.Application")遇到的问题（在线)

[cqqjzb]

在VB中检测excel应用时，如果excel的光标在单元格中，就会出现“部件忙，。。。。切换"的错误提示，如果excel文件没有光标显示则没问题，请问各位大人，能有什么办法在VB中控制excel的光标吗，或是直接能杀死excel

[yangao]

'杀死进程
Public Sub subKillProcess(ByVal strProcess As String)

Dim strComputer As String
Dim objWMIService As Object
Dim colProcessList
Dim objProcess As Object

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
' strProcess = "Excel.exe"
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '" & strProcess & "'")
For Each objProcess In colProcessList
objProcess.Terminate
Next

End Sub


'调用
Call subKillProcess("Excel.exe")

[happy_sea]

杀死进程不是个好办法，因为事先并不知道会不会发生楼主所说的错误，如果用on error来捕获，不等捕获到错误，那个提示就出来了，总不能有问题没问题都先把excel杀死再说啊！
关注。。。

[Hassle]

set oApp=GetObject(, "Excel.Application")

先oApp.IgnoreRemoteRequests=true

后oApp.IgnoreRemoteRequests=false

[happy_sea]

楼上的代码中应该是把oApp.IgnoreRemoteRequests=true放在set oApp=GetObject(, "Excel.Application")前面吧，可是此时oApp根本就是nothing，所以也就不存在oApp.IgnoreRemoteRequests啊？！放在后面？那就没有意义了啊。。。