【怎么关闭EXCEL程序】如何在WORD中关闭EXCEL

【分享成果，根据喜悦获得正能量】职场有时会让我们伤痕累累，但如果我们愿意学习，比如数据自动化处理、利用VBA、受伤的地方一定会成为我们最强的地方。让我们担任，有点技艺。

《VBA信息获取与处理》教程是我推出的第六个教程，目前第一版已经修订。本教程定位为高级、初级、中级结束后的教程。

信息、意义非常广泛，是我们日常生活中不可缺少的一部分。从天气和预报、人际关系到宇宙洪荒，都是信息的一部分。信息在一定程度上是数据，也可以用数据表示，获得信息就是数据的获取。本教程介绍了收集应用程序信息、利用随机信息、发送电子邮件、收集VBA internet数据、VBA延迟操作、剪贴板应用程序、Split函数扩展、工作表信息以及与其他应用程序的交互、利用FSO对象、收集工作表和文件夹信息、收集图形信息以及定制工作表信息函数非常抽象，更有研究价值。

本教程共2册、84册，今后一段时间内将陆续推出修订后的教程内容。今天的内容是第2课：在WORD上关闭EXCEL

第3节是在WORD为应用程序的主窗口下关闭EXCEL的操作

好的。继续营业报告。这里引用的外部数据在报告中已经写完，可以关闭打开的EXCEL。(大卫亚设)下面是截图。

如何实现封闭？在这里，我们仍将提出两个方案。

1 CLOSE方法

这种方法常用。首先找到EXCEL文件，然后关闭。我们先来看看代码。

关闭打开的文件“Private Sub CommandButton4_Click()”

On Error Resume Next

Dim MyXL As Object

Dim axls As对象

Setmyxl=getobject(，' excel.application ')

If Err。Number 0 Then Exit Sub

For Each axls In MyXL.workbooks

If axls。Name=myfile Then

Axls。“Close”关闭文档

Exit For

End If

next

Set axls=Nothing

Set MyXL=Nothing

End Sub

代码屏幕截图：

代码说明：上述程序首先查找打开的EXCEL，找到所需文件，然后关闭程序。让我详细说明这一段的程序。

GetObject函数

GetObject用于返回正在运行的可执行文件对象。语法如下：

Set xlapp=getobject(，' excel.application ')

如果在执行此代码时已经打开了EXCEL，则可以通过xlApp变量访问正在运行的EXCEL。如果EXCEL未运行，则会显示可以捕获的错误消息。如果运行多个Microsoft Excel，GetObject将返回最初启动的Excel。关闭第一个实例后，GetObject将返回启动的第二个实例，依此类推。

当然，您也可以直接调用已打开的文档。例如，如果Excel运行名为Book2的打开工作簿，则以下代码将返回该文件，即使它不是启动该文件的最早文件：

Set xlapp=getobject ('book2 ')。application

2 createobject函数用于启动的新程序。

语法如下：set xlapp=createobject(' excel . application ')

此时，将创建对新EXCEL程序的引用，或称为后期绑定。

蒲

r Each axls In MyXL.workbooks 遍历每个打开的EXCEL

2 利用SendKeys语句

该语句允许你将的按键指令发送到活动应用程序窗口，你可以发送一个或组合键，并且得到和直接使用键盘的同样效果。

SendKeys语句如下语法：

SendKeys string [, wait]

参数string是必须的，是要发送到活动应用程序窗口的键或组合键。

例如，使用下列指令来发送字母“f”键：SendKeys "f"

要发送组合键Alt+f，使用：SendKeys "%f" ，百分符号（%）是表示Alt键的字符串。

要发送Shift+Tab的组合键的话，那么就要使用下面的语句：SendKeys "+{TAB}" 。加号（+）表示Shift键。要发送其它键或者其它组合键的话，请参见下表列出的相应字符串。

注意：当使用SendKeys语句发送按键时，一定要牢记区分字符的大小格。因此，要发送组合键Ctrl+d的话，你必须使用^d，而发送Ctrl+Shift+D的话，则必须使用字符串：^+d

下面我们看本讲的代码：

Private Sub CommandButton5_Click()

Set ws = CreateObject("w;)

ws.AppActivate "001 工作表"

SendKeys "%{F4}"

End Sub

代码的截图：

代码的讲解：通过上面的讲解，我们知道上述代码就是向打开的excel文件发生ALT+F4,也就是关闭这个文件的命令。

本节知识点回向：在本节中我讲了两种方案来关闭已经打开excel的文件，但这个文件并没有处于激活状态，为了关闭这个已经打开的excel文件，我可以利用close方法，或者直接给这个文件发送关闭命令。在利用close方法时要利用GetObject函数返回这个文件，然后关闭。在利用发送关闭指令时利用了SendKeys语句来发送指令。本节中的知识点如下：

① GetObject函数的作用是什么？

② SendKeys语句的作用是什么？

③ GetObject函数和CreateObject 函数的区别是什么？

本节代码参考文件“001 在WORD中激活EXCEL.docm”

我20多年的VBA实践经验，全部浓缩在下面的各个教程中，教程学习顺序：

① 7→1→3→2→6→5或者7→4→3→2→6→5。

② 7→8

各套教程内容简介:

第7套教程（共三册）：《VBA之EXCEL应用》：是对VBA基本的讲解

第1套教程（共三册）：《VBA代码解决方案》：是入门后的提高教程

第4套教程（16G）：VBA代码解决方案之视频（第一套的视频讲解）

第3套教程（共两册）：《VBA数组与字典解决方案》：是对数组和字典的专题讲解

第2套教程（共两册）：《VBA数据库解决方案》：是对数据库的专题讲解

第6套教程（共两册）：《VBA信息获取与处理》：讲解VBA的网络及跨程序应用

第5套教程（共两册）：VBA中类的解读和利用：类及接口技术的讲解

第8套教程（共三册）：VBA之Word应用（最新教程）：word中VBA的利用

• 第六套教程：VBA信息获取与处理，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。