用vba判断一个指定文件夹里面的哪些excel文件是打开状态

czh7656

呼叫大神，版主，老师帮忙，急用

czh7656

如果有文件时打开状态，就用msgbox弹出提示说哪个文件名

香川群子

1. Sub FileExistsCheck()
   
2.     With Application.FileDialog(msoFileDialogFolderPicker)
   
3.         If .Show Then myPath = .SelectedItems(1) Else Exit Sub
   
4.     End With
   
5.     If Right(myPath, 1) <> "" Then myPath = myPath & ""
   
6.     '以上对话框指定文件夹
   
7. 
   
8.     For Each wb In Windows
   
9.         myFilename = myPath & wb.Caption
   
10.         If Dir(myFilename) <> "" Then MsgBox wb.Caption
    
11.     Next
    
12. End Sub

复制代码

香川群子

思路：

检查当前已经打开的文件是否在指定文件夹内有同名文件存在。

缺点： 无法判断当前打开的同名文件是否为相同地址的文件。


因此改成这样：

1. Sub FileExistsCheck()
   
2.     With Application.FileDialog(msoFileDialogFolderPicker)
   
3.         If .Show Then myPath = .SelectedItems(1) Else Exit Sub
   
4.     End With
   
5.     If Right(myPath, 1) <> "" Then myPath = myPath & ""
   
6.     '以上指定文件夹
   
7. 
   
8.     For Each wb In Windows '遍历已经打开的文件
   
9.         Windows(wb.Caption).Activate '当前文件为活动文件
   
10.         If ActiveWorkbook.FullName = myPath & wb.Caption Then MsgBox wb.Caption
    
11.         '检查当前文件路径名称 是否为 指定文件夹内同名文件。
    
12.     Next
    
13. End Sub
    

复制代码

czh7656

香川群子 发表于 2014-9-2 12:44
思路：

检查当前已经打开的文件是否在指定文件夹内有同名文件存在。

当打开文件的时候不是会在文件夹出现一个隐藏的文件吗？能不能判断指定文件夹里面是否有这个文件从而判断这个文件被打开，因为我这边是共享文件夹，所以不一定在我本机上打开的

czh7656

在线等