vba 怎么结束运行中的进程

－－－－－－－－－－－－－－－－－－－－－

Public x As String　'申明一个公共变量

Sub A()

End Sub

---------------------------------

Private Sub CommandButton1_Click()'  窗体1控件程序代码

'

'你的过程

'

Dim m%

UserForm2.Show

'

'

If x = "CommandButton2" Then

MsgBox x

Exit Sub

End If

If x = "CommandButton1" Then

MsgBox x

End If

'你的过程'

'

End Sub

－－－－－－－－－－－－－－－－

Private Sub CommandButton1_Click()‘’窗体1控件代码

Unload Me

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

x = Me.ActiveControl.Name

End Sub

－－－－－－－－－－－－－－－－－－

首先你的代码应该写在模块里（同时按alt和f11进入vba界面，点菜单的插入，模块，写入代码）。

然后将文件另存为“excel可启用宏的工作簿”（在另存为里的第2个选项）。记住文件路径，关闭该文件。

新开excel，点最左上角的“花”，右下的“excel选项”，左边的“加载项”，右边正下方的“go..."（不会翻译，在excel加载项下拉框的右边），浏览，找到那个文件，确定。

这样，以后打开excel时，该文件隐藏打开中，宏可以使用了。

Application.EnableCancelKey = False

控制 Microsoft Excel 如何处理 Ctrl+Break（或 Esc、Command+Period）用户中断以用于运行过程。XlEnableCancelKey 类型，可读写。

XlEnableCancelKey 可为以下 XlEnableCancelKey 常量之一。

xlDisabled 完全禁用“取消”键捕获功能。

xlErrorHandler 将中断作为错误信号传递给运行程序，由 On Error GoTo

语句设置的错误处理程序捕获。可捕获的错误代码为 18。

xlInterrupt 中断当前运行程序，用户可进行调试或结束程序的运行。

使用该属性应小心。如果使用 xlDisabled，则无法中断失控循环或者其他的不能自结束的代码；此外，如果使用

xlErrorHandler，但是错误处理程序始终使用 Resume 语句返回，同样无法终止失控代码。

只要 Microsoft Excel 返回空闲状态并且没有程序处于运行状态，EnableCancelKey 属性都会重置为

xlInterrupt。若要在程序运行中捕获或者禁用取消过程，则每次在程序被调用时必须明确更改 EnableCancelKey

属性。

---