【vb代码片段】强制退出excel进程

分类:VB
2012-06-14 19:52 阅读(?)评论(0)
        ''2、强制退出excel进程
        Dim objSet
        Set objSet = GetObject("winmgmts:").InstancesOf("Win32_Process")
        For Each Item In objSet
            If Item.Name = "EXCEL.EXE" Then
                pid = Item.Handle
                ''Shell "ntsd -c q -p " & pid
                Shell "TASKKILL /PID " & pid
            End If
        Next
  最后修改于 2012-06-14 19:53    阅读(?)评论(0)
 
表  情:
加载中...
 

请各位遵纪守法并注意语言文明