我们时常会使用【Alt+F4】组合键关闭某些应用程序，在VBA程序执行结束之后，如果需要关闭Excel表格应用程序，此时也可以使用模拟按键的形式关闭Excel表格应用程序。
工具/原料
Windows7
Excel2010
方法/步骤
1、打开Excel表格，点击【开发工具】，【VisualBasic】打开VBA编辑器，也可以使用【Alt+F11】组合键打开VBA编辑器。（如果已经打开VBA编辑器，则忽略此步）
2、在VBA编辑器上面点击【插入】，【模块】。（如果已经插入模块，则忽略此步）
3、在VBA编辑器代码框里面输入以下VBA代码程序：SubExitWorkbook(拘七呷憎)OnErrorResumeNext'忽略运行过程中出现的错误Applicatio荏鱿胫协n.DisplayAlerts=False'忽略报警信息ThisWorkbook.Save'保存此工作薄ThisWorkbook.Activate'激活此工作薄SendKeys"%{F4}"&"%{F4}"'模拟快捷键Alt+F4关闭工作薄EndSub
4、程序释义：%表示的是Alt键，{F4}表示的F4键。（具有特殊意义的按键通常放置于大括号锞蕈漉栽“{}”里面，详细的按键信息可以划碚枞凇悄选“SendKeys”后按【F1】键获取）程序里面多加一个&"%{F4}"，主要是因为：如果单独在VBA编辑器里面运行，那么它先关闭VBA编辑器，之后关闭Excel工作薄。
5、关闭VBA编辑器，回到工作表界面，点击【开发工具】，【宏】打开“宏”的对话框，也可以使用【Alt+F8】组合键打开“宏”对话框。
6、选择所编写的VBA程序宏的名称（如：ExitWorkbook），再点击【执行】，工作薄将会被关闭。
7、SendKeys"%{F4}"&&qu艺皱麾酪ot;%{F4}"也等效于Applicati泠贾高框on.Quit，它们都能将工作薄关闭。如：SubExitWorkbook()OnErrorResumeNext'忽略运行过程中出现的错误Application.DisplayAlerts=False'忽略报警信息ThisWorkbook.Save'保存此工作薄ThisWorkbook.Activate'激活此工作薄Application.Quit'退出工作薄EndSub
8、不论是模拟按键（Alt+F4）关闭工作薄，还是使用退出工作薄程序（Application.Quit），它们都将关闭所有的工作薄（即：退出工作表应用程序）。（如果所打开的工作薄中有修改内容且没有保存，则模拟按键（Alt+F4）不起作用）如果想关闭某个工作薄且不退出应用程序，则需要使用到Close，参见下面的经验引用。