合并excel工作表和工作簿，标识工作表和工作簿源VBA

Sub MergeWorksheets()
    Dim ws As Worksheet
    Dim wb As Workbook
    Dim newWorkbook As Workbook
    
    ' 创建一个新的工作簿
    Set newWorkbook = Workbooks.Add
    
    ' 循环遍历所有工作表
    For Each wb In Workbooks
        If Not wb Is newWorkbook Then
            For Each ws In wb.Worksheets
                ' 将每个工作表复制到新的工作簿
                ws.Copy After:=newWorkbook.Sheets(newWorkbook.Sheets.Count)
            Next ws
        End If
    Next wb
    
    ' 保存新的工作簿
    newWorkbook.SaveAs "合并后的工作表.xlsx"
    newWorkbook.Close
End Sub

Sub MergeWorkbooks()
    Dim wb As Workbook
    Dim newWorkbook As Workbook
    Dim filename As String
    
    ' 创建一个新的工作簿
    Set newWorkbook = Workbooks.Add
    
    ' 循环遍历所有打开的工作簿
    For Each wb In Workbooks
        If Not wb Is newWorkbook Then
            ' 获取当前工作簿的文件名
            filename = wb.Name
            
            ' 将当前工作簿的所有工作表复制到新的工作簿
            wb.Sheets.Copy After:=newWorkbook.Sheets(newWorkbook.Sheets.Count)
            
            ' 关闭当前工作簿
            wb.Close
        End If
    Next wb
    
    ' 保存新的工作簿
    newWorkbook.SaveAs "合并后的工作簿.xlsx"
    newWorkbook.Close
End Sub