vba判断所在文件夹内所有工作簿有无指定工作表

在VBA中，你可以使用`Application.Workbooks`集合来访问Excel应用程序中的所有打开的工作簿。如果你想检查每个工作簿是否包含特定的工作表，可以编写一段循环遍历每个工作簿并使用`Worksheets`集合来查找该工作表。下面是一个基本的示例：

Sub CheckSheetsInFolder()
    Dim wsName As String ' 指定的工作表名
    Dim wb As Workbook
    Dim folderPath As String ' 需要检查的文件夹路径
    
    ' 设置你要找的工作表名称
    wsName = "Sheet1" ' 替换为你需要查找的实际工作表名称

    ' 设置文件夹路径
    folderPath = "C:\YourFolder\" ' 替换为你实际的文件夹路径

    ' 遍历文件夹内的所有工作簿
    If FSO.FileExists(folderPath) Then
        Set fso = CreateObject("Scripting.FileSystemObject")
        For Each file In fso.GetFolder(folderPath).Files
            If Right(file.Name, 5) = ".xlsx" Or Right(file.Name, 4) = ".xls" Then ' 检查文件是否为Excel格式
                Set wb = Workbooks.Open(folderPath & file.Name)
                
                ' 检查工作簿是否包含指定的工作表
                If Not wb.Sheets(wsName).IsMissing Then
                    Debug.Print "Workbook '" & file.Name & "' contains sheet named '" & wsName & "'."
                Else
                    Debug.Print "Workbook '" & file.Name & "' does not contain sheet named '" & wsName & "'."
                End If
                
                ' 关闭打开的工作簿
                wb.Close False
            End If
        Next file
    Else
        MsgBox "Folder does not exist."
    End If
End Sub

这个脚本会打印出文件夹中包含指定工作表的工作簿名字以及那些不包含指定工作表的信息。