将某个文件夹里面的工作簿的子表都重命名和工作簿一样的名字的宏代码

在Excel VBA中，你可以创建一个宏来批量重命名工作簿中的所有子表（也称为“Sheet”）。以下是一个简单的VBA代码示例，它会遍历指定文件夹下的每个工作簿，并将其中的所有子表格重命名为与工作簿相同的名称：

Sub RenameSheetsToWorkbookName()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim folderPath As String
    Dim fileName As String
    Dim newSheetName As String

    ' 设置需要操作的文件夹路径
    folderPath = "C:\Your\Folder\Path\" ' 请替换为你实际的文件夹路径

    ' 遍历文件夹中的每个工作簿
    Application.ScreenUpdating = False ' 关闭屏幕更新以提高性能
    For Each wb In Application.Workbooks.OpenFiles(folderPath & "*.xls*") ' 可根据需要调整文件扩展名
        ' 获取当前工作簿名称
        fileName = wb.Name

        ' 遍历工作簿中的所有工作表
        For Each ws In wb.Sheets
            ' 新的表名就是工作簿名称
            newSheetName = fileName

            ' 重命名工作表
            ws.Name = newSheetName
        Next ws

        ' 关闭工作簿以释放资源
        wb.Close SaveChanges:=False
    Next wb

    Application.ScreenUpdating = True ' 恢复屏幕更新
End Sub

**注意事项**：
1. 运行此宏前确保你有修改权限，并备份重要数据，因为操作不可逆。
2. `*.xls*` 是匹配所有Excel文件的通配符，如果你只想处理特定类型的文件，可以更改这部分。