如何使用循环按工作表名称将数据从一个工作表复制到不同工作簿中的另一个工作簿

Sub CopyDataToDifferentWorkbook()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    Dim sheetName As String
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("源工作簿路径")
    
    ' 打开目标工作簿
    Set targetWorkbook = Workbooks.Open("目标工作簿路径")
    
    ' 循环遍历源工作簿中的所有工作表
    For Each sourceWorksheet In sourceWorkbook.Worksheets
        sheetName = sourceWorksheet.Name
        
        ' 在目标工作簿中创建对应名称的工作表
        Set targetWorksheet = targetWorkbook.Worksheets.Add
        targetWorksheet.Name = sheetName
        
        ' 复制数据
        sourceWorksheet.UsedRange.Copy targetWorksheet.Range("A1")
    Next sourceWorksheet
    
    ' 关闭工作簿并保存
    sourceWorkbook.Close SaveChanges:=False
    targetWorkbook.Close SaveChanges:=True
    
    ' 释放对象
    Set sourceWorksheet = Nothing
    Set targetWorksheet = Nothing
    Set sourceWorkbook = Nothing
    Set targetWorkbook = Nothing
End Sub