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

marco2

Huanghai，你试试我讲的，开两个工程，也就是两次打开Excel，然后在第二个Excel工程里打开你想找的book，试试看，也许你会想要将你的函数再做得更完善了！：）

李寻欢

Set MyXL = GetObject("D:\BOOK1.XLS")      
        MyXL.Application.Quit
        Set MyXL = Nothing   
在多个实例打开的情况下，如果指定的文件在其中一个实例打开，将会被关闭，如果指定的文件没打开，也会关闭一个实例。
这样做似乎有点勉强：），有更好的办法吗？

ail

我也想知道，也更想知道如何可以用VBA当WORD或EXCLE应用程序打开时，用代码把它关闭。再运行我想运行的程序