Question

我创建了一个按钮（不是activeX按钮）并分配了一个宏，该宏被编码为终止EXCEL.EXE任务。激活时，它会给出一条错误消息，指出它无法关闭。甚至可以通过excel杀死excel任务吗？

这是我的代码。我很肯定它有效。

Dim oShell : Set oShell = CreateObject("WScript.Shell")
intAnswer = _
MsgBox("Do you want to close Excel?", _
    vbYesNo, "Prompt")

If intAnswer = vbYes Then
    MsgBox "Excel will close."

Else
    MsgBox "Excel will remain open."
End If

oShell.Run "taskkill /im EXCEL.EXE", , True

Answer 1

使用Application.Quit方法：

intAnswer = _
MsgBox("Do you want to close Excel?", _
    vbYesNo, "Prompt")

If intAnswer = vbYes Then
    MsgBox "Excel will close."
    Application.Quit

Else
    MsgBox "Excel will remain open."
End If

考虑使用

ThisWorkbook.Save

如果要在关闭应用程序之前保存工作。您可以找到有关Application对象here的更多信息。

Answer 2

也许尝试预先添加：

Application.DisplayAlerts=False
ThisWorkbook.Save

试图通过Excel宏关闭Excel？

2 个答案: