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时，该文件隐藏打开中，宏可以使用了。

Sub 关闭方法1()

Application.DisplayAlerts = False

ThisWorkbook.Save

Application.Quit

ThisWorkbook.Close

Application.DisplayAlerts = True

End Sub

'---------------------------------------------

Sub 关闭方法2()

Application.DisplayAlerts = False

ThisWorkbook.Save

'Application.Quit

Application.DisplayAlerts = True

Shell "taskkill /f /im EXCEL.EXE"

End Sub

是这样的,Close和Quit方法，是可以退出工作簿，和直接彻底关掉Excel的Application的背景界面的，但是必须有先后顺序，你得先用Quit再接Close语句（比如上面方法1），原因是：用了Close之后，再接Quit，你的VBA工程就没有对象支持了，剩下任何代码都无法继续依托Excel对象运行。也可以用另一种方法（比如上面方法2），你用代码保存文档，然后用Bat（批处理）里面的方法，也就是用taskkill /F /IM “程序名称”方法在保存文档之后强制关闭Excel应用界面，这种方法比较彻底，无残留。

---