Excel VBA复制和粘贴不同的工作簿

Question

我想将一个工作表的数据（工作簿：分段总帐试算Balance.XLS - 此工作簿中的工作表具有相同的名称）复制到另一个包含20张工作簿的工作簿中，其中一个具有相同的名称将数据粘贴到现有数据。

代码如下：

Sub CopyWorkbook()

    Dim aw As Workbook
    Dim y As Workbook
    Dim sh As Worksheet

    Set aw = Application.ActiveWorkbook
    Set y = Application.Workbooks.Open("S:\Proefbalanse\PastelTB\Segmented General Ledger Trial Balance.XLS")

    For i = 20 To aw.Sheets.Count
            Set sh = Segmented General Ledger Trial ***its complaining about this sheet name***

        On Error Resume Next
        Set sh = y.Worksheets(aw.Worksheets(i).Name)
        On Error GoTo 0
        If TypeName(sh) <> "Segmented General Ledger Trial" Then
            sh.Range("A:F").Copy aw.Worksheets(i).Range("A1")
        End If
    Next i
   Application.CutCopyMode = False
   y.Close
End Sub

当我更改两个工作簿中的工作表名称时，它会在不粘贴正确工作表中的数据的情况下运行吗？

请帮忙。

约翰