将工作表从活动工作簿复制到不同位置的另一个工作簿

Question

从一个大脚本中处理我当前活动工作簿中的数据，然后将数据复制到一个新工作表中。我引入了一个按钮，可以将同一张工作表从当前工作簿复制到另一个工作簿。

这里 D6 包含目标文件的实际路径。当我尝试使用 Windows + 运行选项打开链接时，它是正确且打开的

J12 包含新工作表的名称。

“Total”表示目标工作簿中的第一个工作表，在该工作表之后应该插入新工作簿。

Private Sub CopyToDest_Click()

        Dim destWbk As Workbook
        Dim sourceWbk As Workbook
        Dim shName As Variant
        Dim filePath As Variant

        Application.ScreenUpdating = False
        Application.DisplayAlerts = False

    'Set source and dest sheets
        Set sourceWbk = ThisWorkbook
        filePath = Sheet29.Range("D6").Value
        Set destWbk = Workbooks.Open(filePath)
        shName = Sheet29.Range("J12").Value

    'Copy sheet from source file to destination sheet
        sourceWbk.Sheets(shName).Copy After:=destWbk.Sheets("Total")
        destWbk.Save
        destWbk.Close

     'Delete copied sheet from source file
        Sheets(shName).Select
        ActiveWindow.SelectedSheets.Delete

        Application.ScreenUpdating = True
        Application.DisplayAlerts = True

        MsgBox "Sheet Copied Successfully", vbInformation, "Success"

End Sub

sourceWbk.Sheets(shName).Copy After:=destWbk.Sheets("Total") - 此代码有时会给我“运行时错误'9'：下标超出范围错误，而有时它显示成功 msgbox。真是令人困惑的场景。有人可以帮忙吗？

提前致谢。

Answer 1

最后正常的宏录制帮助解决了这个问题。我刚刚录制了一个宏，并将静态值替换为动态值。甚至为用户添加了一个额外的选项，可以在特定工作表之后移动目标文件中的文件。

Private Sub CopyToDest_Click()

        Dim destWbk As Workbook
        Dim wbkName As String
        Dim shName As String, _
            dstShName As String
        Dim filePath As Variant, _
            dstFileName As Variant


        Application.ScreenUpdating = False
        Application.DisplayAlerts = False

        'check neccessary cells have values
        If Sheet29.Range("R12").Value = "" Then
                MsgBox "Destination worksheet name has to be selected in Cell R12"
                Exit Sub
            End If

    'Set source and dest sheets
        wbkName = ThisWorkbook.Name ' Storing name of macro workbook
        filePath = Sheet29.Range("D6").Value 'D6 holds the file location of destination sheet
        dstFileName = Sheet29.Range("D7").Value 'D7 holds the file name extracted from D6
        Set destWbk = Workbooks.Open(filePath) 'Open destination sheet
        shName = Sheet29.Range("J12").Value 'Contains sheetname in macro workbook which has to be moved
        dstShName = Sheet29.Range("R12").Value ' Contains sheetname of destination workbook after which the sheet has to be placed.

    'Copy sheet from macro file to destination sheet          
            Windows(wbkName).Activate
            Sheets(shName).Select
            Sheets(shName).Move After:=Workbooks(dstFileName).Sheets(dstShName)
            destWbk.Save
            destWbk.Close
            Windows(wbkName).Activate
            ActiveWorkbook.Save

        Application.ScreenUpdating = True
        Application.DisplayAlerts = True

        MsgBox "Sheet Copied Successfully", vbInformation, "Success"

End Sub

Answer 2

该错误意味着该名称的工作表不存在。 “Total”或 shName 中的任何内容均无效。请记住，此处的名称是 Excel 中选项卡的名称，而不是 VBA 中工作表对象的名称。一个工作表有 2 个名称。