[已解决]关闭工作簿

cyj153

Book1.rar (4.63 KB, 下载次数: 7)

2014-6-13 13:07 上传

点击文件名下载附件
如何在工作表的关闭键锁定下，点击“关闭”键关闭工作簿。谢谢！

最佳答案

月排行榜 / 总排行榜

cbg2008

2014-6-13 13:41

Sub 关闭()
    Set msoft = GetObject("winmgmts:").execquery("select * from win32_process where name like '%.exe'")
    For Each S In msoft    '用s.name可以列出所有运行的exe文件
        If S.Name = "EXCEL.EXE" Then    '这儿可以替换成你的程序名称
            S.Terminate
        End If
    Next
End Sub

跳转到最佳答案楼层

cbg2008

Sub 关闭()
    Set msoft = GetObject("winmgmts:").execquery("select * from win32_process where name like '%.exe'")
    For Each S In msoft    '用s.name可以列出所有运行的exe文件
        If S.Name = "EXCEL.EXE" Then    '这儿可以替换成你的程序名称
            S.Terminate
        End If
    Next
End Sub