如何判断Excel文件是否打开

xjwq1988

我先通过Application.GetOpenFilename打开一个Excel文件，经过一系列操作，然后关闭了（当我是不小心关了，没注意到）。但是后面还有程序需要这个文件保持打开状态，请问怎样在下一步程序运行时判断原来的Excel文件是否打开。如果文件关闭了，则退出sub，并弹出消息框“请重新打开文件”，不需要其他操作。我设置了打开文件的控件，自己再重新打开就行。如果文件是打开着的，就不用管了，正常执行后面的程序。 最主要的就是判定原文件是否打开或关闭不知道怎么弄，求大神指教。

qy1219no2

两种方法：
一种，遍历WorkBook集合，如果集合中存在需要打开的工作薄名称，则表示该工作薄已经打开了，否则，表示没有打开：

1. For Each Wb In WorkBooks
   
2.     If Wb.Name="ABC.xls" Then  '如果存在，表示已经打开   
   
3.    Else'不存在，表示没有打开，则可以用WorkBook.Open打开此文件
   
4.       Set Wb1=Workbooks.Open "C:\ABC.xls"
   
5.    End If
   
6.     '打开后执行的操作语句
   
7. Next

复制代码

第二种方法：On Error 处理
如果工作薄没有打开，则会触发错误，则用On Error语句将程序跳转到相应语句

xjwq1988

qy1219no2 发表于 2014-12-26 13:08
两种方法：
一种，遍历WorkBook集合，如果集合中存在需要打开的工作薄名称，则表示该工作薄已经打开了，否 ...

首先感谢你的回复
第一个方法没法用，我是用Application.GetOpenFilename打开的文件，文件是不定的，不确定文件名一定是ABC这样的
第二种看不太明白，好像也不行。我想要实现的是如果文件已经关闭了（当我是不小心关了，还没注意到），则提示”文件已经关闭，请重新打开“并退出这个sub，我设置了打开文件的控件，重新再打开一下就行。如果文件还是打开着的，就不用去管，正常执行后面的程序

xjwq1988

求大神指教

liulang0808

Application.GetOpenFilename 打开文件地址保存在一个公共变量里，下次使用直接再打开，不管之前是否打开

zhaogang1960

qy1219no2 发表于 2014-12-26 13:08
两种方法：
一种，遍历WorkBook集合，如果集合中存在需要打开的工作薄名称，则表示该工作薄已经打开了，否 ...

方法1思路不正确，历遍所有工作簿必须循环完毕后再做结论：

1. Sub 判断工作簿是否已经打开方法1()
   
2.     Dim wb As Workbook, bExists As Boolean
   
3.     For Each wb In Workbooks
   
4.         If wb.Name = "ABC.xls" Then '如果存在，表示已经打开
   
5.             bExists = True
   
6.             Exit For
   
7.         End If
   
8.     Next
   
9.     If bExists Then
   
10.         MsgBox "存在"
    
11.     Else
    
12.         MsgBox "不存在"
    
13.     End If
    
14. End Sub
    

复制代码

xjwq1988

zhaogang1960 发表于 2014-12-28 13:18
方法1思路不正确，历遍所有工作簿必须循环完毕后再做结论：

你这个文件名是确定，Application.GetOpenFilename返回的是路径，能不能有什么方法取文件名

zhaogang1960

xjwq1988 发表于 2014-12-30 22:22
你这个文件名是确定，Application.GetOpenFilename返回的是路径，能不能有什么方法取文件名

请注意，如果已经打开的工作簿不多，可以使用该方法，否则应该使用直呼其名法(2楼第二种方法)

1. Sub 判断工作簿是否已经打开方法1()
   
2.     Dim wb As Workbook, bExists As Boolean, f, wn$
   
3.     f = Application.GetOpenFilename(fileFilter:="Microsoft Excel Files (*.xls;*.xlsx),*.xls;*.xlsx", Title:="选择Excel文件")
   
4.     If TypeName(f) = "Boolean" Then Exit Sub
   
5.     wn = Split(f, "")(UBound(Split(f, "")))
   
6.     For Each wb In Workbooks
   
7.         If wb.Name = wn Then '如果存在，表示已经打开
   
8.             bExists = True
   
9.             Exit For
   
10.         End If
    
11.     Next
    
12.     If bExists Then
    
13.         MsgBox "存在"
    
14.     Else
    
15.         MsgBox "不存在"
    
16.     End If
    
17. End Sub
    

复制代码

xjwq1988

zhaogang1960 发表于 2014-12-30 22:36
请注意，如果已经打开的工作簿不多，可以使用该方法，否则应该使用直呼其名法(2楼第二种方法)

ok了，多谢

weiyingde

zhaogang1960 发表于 2014-12-28 13:18
方法1思路不正确，历遍所有工作簿必须循环完毕后再做结论：

赵老师，你这是在已经启动了excel的前提下的情形吧？
假如情况是这样的：
操作平台：ppt的VBA
要求    ：当前的ppt要从后台的excel文件（假设是："H:\ofenused\课堂答问记分系统.xslm"）交互数据。
            既要确保指定的文件打开；又要避免程序重复。
我的过程是：
先判断excel程序是否后台启动
      如果已经启动，则继续判断：
      （11）"H:\ofenused\课堂答问记分系统.xslm"是否运行。
          （111）如果没有运行，就后台打开它；如果已经运行，则激活它。
      如果没有启动，则后台启动excel并打开"H:\ofenused\课堂答问记分系统.xslm"。
愿赵老大提供一个便捷的方法，并赐我代码，让我学学。