VBA，对于每个下一个工作簿-如果此工作簿中的工作表名称等于另一个工作簿中的工作表名称

Sub CompareWorkbookSheets()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet
    
    ' 打开第一个工作簿
    Set wb1 = Workbooks.Open("路径\工作簿1.xlsx")
    
    ' 打开第二个工作簿
    Set wb2 = Workbooks.Open("路径\工作簿2.xlsx")
    
    ' 循环遍历第一个工作簿中的所有工作表
    For Each ws1 In wb1.Worksheets
        ' 循环遍历第二个工作簿中的所有工作表
        For Each ws2 In wb2.Worksheets
            ' 比较工作表名称是否相同
            If ws1.Name = ws2.Name Then
                ' 如果相同，执行相应的操作
                ' 例如，可以在这里进行数据比较、复制等操作
                MsgBox "工作表名称相同：" & ws1.Name
            End If
        Next ws2
    Next ws1
    
    ' 关闭工作簿
    wb1.Close
    wb2.Close
End Sub