如何在VBA判断EXCEL或WORD文件已经打开，并用代码关闭.docxVIP

如何在VBA判断EXCEL或WORD文件已经打开，并用代码关闭 如何在VBA判断EXCEL或WORD文件已经打开，并用代码关闭 字体: 小 中 大 | 打印 发表于: 2021-6-17 20:17 作者: huanghai 来源: Office中国社区门户 如何在VBA（ACCESS）中用代码判断一个EXCEL或WORD文件已经打开，并用代码关闭 我也来说两句 查看全部回复 最新回复 ? 竹笛 (2021-6-18 06:17:00) 笨办法，你试试： 1、在ACCESS代码中获取那个EXCEL文件中一个指定的cells的value 2、如果出错……，您知道了吧。 3、关闭这个EXCEL： olxApp.Quit Set olxApp = Nothing 这个你是知道的 ? 李寻欢 (2021-6-18 06:20:00) Dim MyXL As Object Set MyXL = GetObject(, \ For Each axls In MyXL.workbooks If InStr(1, axls.Name, \ axls.Close 关闭文档 MyXL.Quit 退出excel Exit For End If Next axls Set MyXL = Nothing [此贴子已经被作者于2021-6-17 22:20:35编辑过] ? eio (2021-6-18 06:58:00) 嘿，如果打开EXECL程序，其默认“book1”，上述程序就无能为力了。 ? 李寻欢 (2021-6-18 15:20:00) 干嘛不试一试再发言 ? eio (2021-6-18 16:23:00) 试过了,我不是莽语的. ? marco2 (2021-6-18 16:37:00) EIO，你试的是不正确的，因为可以将“book1.xls”改为默认打开的“book1”即可，这时依然可以找到工作簿。 但寻欢，这个问题你试过没有？当打开两个Excel.application，而你要查找的对象却在第二个工程里时，你提供的方法却无能为力了！ 不过你的方法还是非常棒的，至少已经搞定了一半，而且是纯VBA实现的！：） ? huanghai (2021-6-18 16:53:00) 谢谢寻欢，原来核心就是GETOBJECT，特帖帮助内容，与大家分享： GetObject 函数示例该示例使用 GetObject 函数来获取对指定的 Microsoft Excel 的工作表 (MyXL) 的引用。它使用工作表的 Application 属性来显示或关闭 Microsoft Excel 等等。DetectExcel Sub 过程通过调用两个 API 函数，来查找 Microsoft Excel。如果 Microsoft Excel 正在运行，则将其放入运行对象表（Running Object Table）中。如果 Microsoft Excel 不在运行，则第一次调用 GetObject 将导致错误。在本例中，出现该错误则把 ExcelWasNotRunning 标志设为 True。第二次调用 GetObject 是指定要打开的一个文件。如果 Microsoft Excel 不在运行，则这个第二次的调用将启动该程序，并返回一个指定文件 (mytest.xls) 所对应的工作表的引用。该文件必须位于指定的位置；否则将产生 Visual Basic 错误及自动化错误。随后的示例代码将 Microsoft Excel 及包含指定工作表的窗口设为可见。最后，如果在此前没有 Microsoft Excel 的副本在运行，代码就使用 Application 对象的 Quit 方法来关闭 Microsoft Excel。如果该应用程序原来就在运行，则不要试图关闭它。引用本身在设为 Nothing 后被释放。 声明必要的 API 例程： Declare Function FindWindow Lib \lpWindowName As Long) As Long Declare Function SendMessage Lib \\ByVal lParam As Long) As Long Sub GetExcel() Dim MyXL As Object 用于存