office2010 中如何判断指定的Excel文件已打开

speedlin0625

工作环境：win10+Office 2010
在利用open代码打开指定文件前想判断指定的excel文件是否已打开，如果指定excel文件已被手工打开了，再利用open代码执行后会出现两个excel文件，其中open代码打开的是“XXXX.xls(只读)" 。所以为了防止指定的Excel被手工打开，所以需先判断指定文件是否被打开。按之前的帖子试了好多方法都实现不了。
方法一：For Each wb In Application.Workbooks，多个.xls 文件运行后仅循环一次。
方法二：    On Error Resume Next
    Set MyXL = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then ExcelWasNotRunning = True
Excel文件已打开，但err.number总=0

总之是没有办法判断出，求各位帮忙。先谢谢了

bajifeng

1. Sub b()
   
2. '判断 A.xls 文件是否打开
   
3. Dim x%
   
4. For x = 1 To Windows.Count
   
5.     If Windows(x).Caption = "A.xls" Then
   
6.         MsgBox "A文件打开了"
   
7.         Exit Sub
   
8.     End If
   
9. Next
   
10. End Sub

复制代码

bajifeng

>>>>>>>>>>>>>>>

speedlin0625

试了，好像不行。
Windows.Count=1，实际打开了两个文件，一个是“03A.xlsm",另一个是”a.xls"。d:\A.jpg

zhaogang1960

请参考:
Sub 方法1()
    Dim wb As Workbook
    For Each wb In Workbooks
         If wb.Name = "A.xls" Then
            MsgBox "A.xls已经打开。"
            Exit Sub
         End If
    Next
    MsgBox "A.xls没有打开。"
End Sub

Sub 方法2()
    Dim wb As Workbook
    On Error Resume Next
    Set wb = Workbooks("A.xls")
    If Not wb Is Nothing Then
        MsgBox "A.xls已经打开。"
    Else
        MsgBox "A.xls没有打开。"
    End If
End Sub


如果打开的文件很多，请使用第二种方法

speedlin0625

zhaogang1960 发表于 2016-3-2 14:55
请参考:
Sub 方法1()
    Dim wb As Workbook

方法一之前就试过了，实现不了。
方法二试了，也不行，直接跳到else了。
我的运行环境是：win10+Office professional plus 2010，不知是否与此运行环境有关。

microyip

楼上赵刚老板才是正解：）

t13564865256

speedlin0625 发表于 2016-3-2 15:25
方法一之前就试过了，实现不了。
方法二试了，也不行，直接跳到else了。
我的运行环境是：win10+Office ...

你说你试了不行，又不上你的源代码。也没有附件。就光嘴说不行。如何帮你

zhaogang1960

speedlin0625 发表于 2016-3-2 15:25
方法一之前就试过了，实现不了。
方法二试了，也不行，直接跳到else了。
我的运行环境是：win10+Office ...

方法1不可能出问题，顶多用时长些
方法2使用了错误处理语句On Error Resume Next，即使有错误也不可能报错
估计是你的电脑出问题了，请换一台试试看

speedlin0625

zhaogang1960 发表于 2016-3-2 15:30
方法1不可能出问题，顶多用时长些
方法2使用了错误处理语句On Error Resume Next，即使有错误也不可能报 ...

换了台电脑就可以了，但换的电脑是office2007。不知道是否是2007与2010有区别。我测试了一下，发现2007怎么打开后都如图1所示，所有的文件都会出现在一个工程中。但2010中如果手工在资源管理器中分别打开两个文件，两个文件分别出现在不同的工程中。如图2所示。所以以上的方法都不行。在2010中如果先打开03A.xlsm然后用菜单栏的打开命令再打开a.xls与2007是一样的。上述代码都可以实现。在实际应用中可能会出现用资源管理器分别打开两个文件。此类问题如何能解决判断文件已打开。