用VB打开EXCEL文件之后,如何关闭它
发布网友
发布时间:2022-04-19 23:06
我来回答
共2个回答
热心网友
时间:2023-07-05 03:20
这个我也遇到,我的解决方案是杀进程
Private Sub Command1_Click()
Kill ("EXCEL.EXE")'这里是调用
End Sub
Private Sub Kill(str As String)
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name='" & str & "'")
For Each objProcess In colProcessList
objProcess.Terminate '结束进程
Next
Set objProcess = Nothing
Set colProcessList = Nothing
Set objWMIService = Nothing
End Sub
追问你这个是相当于在VB界面上在多设置一个按键是吧?
追答晕,你自己在过程需要的时候调用 Kill ("EXCEL.EXE")'就可以了啊
比如放到你的过程
xlApp.Quit '关闭EXCEL
Set xlApp = Nothing '释放EXCEL对象
Kill ("EXCEL.EXE")
热心网友
时间:2023-07-05 03:21
Shell "cmd.exe /c taskkill /f /im excel.exe", vbHide
如果你打开了多个EXCEL,即执行多次,如果不知道多少,可以判断进程是否存在再执行。
代码:
BACKENDP:
If CheckApplicationIsRun("EXCEL.exe") = True Then
Shell "cmd.exe /c taskkill /IM EXCEL.exe /F /T", vbHide
GoTo BACKENDP:
End If