遍历文件夹找到文件并打开，如果文件已打开则跳过

he383174288

学习了大神的遍历当前文件夹及所有子文件夹下的文件这篇，然后稍微修成自己想要的。
大神写的https://club.excelhome.net/thread-1165866-1-1.html
主要是想这样，遍历文件后打开，进行操作，但是如何判断文件是否已经打开，如果文件已经打开，则跳过打开这个步骤，如果文件没打开，则把文件打开。
修改内容如下：
Sub 按钮1_Click()
    Application.ScreenUpdating = False
    Getfd (ThisWorkbook.Path) 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改
    Application.ScreenUpdating = True
End Sub
Sub Getfd(ByVal pth)
    Set Fso = CreateObject("scripting.filesystemobject")
    Set ff = Fso.getfolder(pth)
    For Each f In ff.Files
'下面是我自己添加的代码
Application.DisplayAlerts = False   '禁用屏幕警告
Do Until  （代码：判断文件是否开）      '这里该怎么写，是不是用Do Until........Loop这个语句，还是用别的语句
        Workbooks.Open Filename:=f     
Loop
            Range("A1").Value = "我爱北京天安门"
        ActiveWorkbook.Close savechanges:=True    '关闭并保存文件
Application.DisplayAlerts = True    '开启屏幕警告
’以上是我自己添加的代码
    Next f
    For Each fd In ff.subfolders
        Getfd (fd)
    Next fd
End Sub


求助，标红的那该怎么写，用什么语句来判定文件是否打开。

山菊花

Sub Getfd(ByVal pth)
    Dim wb As Workbook
    Set Fso = CreateObject("scripting.filesystemobject")
    Set ff = Fso.getfolder(pth)
    Application.DisplayAlerts = False   '禁用屏幕警告
    For Each f In ff.Files
        '下面是我自己添加的代码
        'Do Until  （代码：判断文件是否开）      '这里该怎么写，是不是用Do Until........Loop这个语句，还是用别的语句
        '        Workbooks.Open Filename:=f
        'Loop
        If f Like "*.xls*" Then
            For Each wb In Workbooks '遍历打开的工作簿
                If wb.FullName = f Then Exit For
            Next
            If wb Is Nothing Then '如果指定工作簿未打开
                Set wb = Workbooks.Open(f)
            End If

            wb.Sheets(1).Range("A1").Value = "我爱北京天安门"
            wb.Close SaveChanges:=True    '关闭并保存文件
        End If
        '以上是我自己添加的代码
    Next f
    For Each fd In ff.subfolders
        Getfd (fd)
    Next fd
    Application.DisplayAlerts = True    '开启屏幕警告
End Sub

he383174288

不行哦，有这个错误提示。

山菊花

he383174288 发表于 2021-8-15 14:14
不行哦，有这个错误提示。

错误已修改，请测试。

he383174288

已测试，可以了，感谢！！！