小编Myl*_*ier的帖子

我运行这个 vba，它遍历文件夹并提取它在一张大表中编译的数据。我的问题是我收到了一个名为 thumbs.db 的隐藏文件的错误，我需要添加一些东西，以便它验证它只是提取带有 xlsx 扩展名的文件。下面是我正在使用的代码。

Sub DoFolder(Folder)
    Dim SubFolder As Folder
    Dim i As Integer
    Dim CopyR As Range

    For Each SubFolder In Folder.SubFolders
        DoFolder SubFolder
    Next

    If Folder.SubFolders.Count = 0 Then
        If Folder.Files.Count = 1 Then
            If Mid(Folder.Files, Len(Folder.Files) - 3, 4) = "xlsx" Then
            Else: MsgBox "2+ files: " & Folder.Path
            End If
        End If

        For Each File In Folder.Files
            Hoover File
        Next
    Else
    End If
End Sub

我想弄清楚的问题是

If Mid(Folder.Files, Len(Folder.Files) - 3, 4) = "xlsx" …