Excel VBA，绝对初学者，希望将文件夹中不同工作簿中的同名工作表合并到新工作簿中

Sub 合并同名工作表()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim newWorkbook As Workbook
    Dim newWorksheet As Worksheet
    Dim folderPath As String
    Dim fileName As String
    
    ' 设置文件夹路径
    folderPath = "你的文件夹路径"
    
    ' 创建新工作簿
    Set newWorkbook = Workbooks.Add
    
    ' 循环遍历文件夹中的所有文件
    fileName = Dir(folderPath & "\*.xlsx")
    Do While fileName <> ""
        ' 打开文件
        Set wb = Workbooks.Open(folderPath & "\" & fileName)
        
        ' 循环遍历工作簿中的所有工作表
        For Each ws In wb.Worksheets
            ' 判断工作表是否存在于新工作簿中
            On Error Resume Next
            Set newWorksheet = newWorkbook.Worksheets(ws.Name)
            On Error GoTo 0
            
            ' 如果工作表不存在，则复制到新工作簿中
            If newWorksheet Is Nothing Then
                ws.Copy After:=newWorkbook.Sheets(newWorkbook.Sheets.Count)
            End If
        Next ws
        
        ' 关闭文件
        wb.Close SaveChanges:=False
        
        ' 继续处理下一个文件
        fileName = Dir
    Loop
    
    ' 保存新工作簿
    newWorkbook.SaveAs "合并后的工作簿路径及名称.xlsx"
    
    ' 关闭新工作簿
    newWorkbook.Close SaveChanges:=False
    
    ' 提示合并完成
    MsgBox "工作表合并完成！"
End Sub