将工作表复制到同一Excel工作簿时出现错误-下标超出范围

Question

将工作表复制到同一Excel工作簿时出现错误-下标超出范围。

sub copyWorkSheet()
    Dim myPath As String
    myPath = Application.ActiveWorkbook.FullName

    Workbooks("Generator.xlsm").Activate

    Sheets("Details 1").Select
    Sheets("Details 1").Copy After:=Workbooks(myPath).Sheets("Details 2")
End Sub

Answer 1

有许多行可能会发生错误：

工作簿（“ Generator.xlsm”）。激活

确保“ Generator.xlsm”已打开-激活会使“ Generator”成为活动且可用的工作簿，但不会为您打开它。

您还必须确保两个工作簿中都存在“详细信息1”和“详细信息2”，否则，这也会产生错误。

示例更正的代码：

Sub copyWorkSheet()
    Set otherWorkbook = Application.Workbooks.Open("Generator.xlsm")
    otherWorkbook.Activate
    otherWorkbook.Sheets("Details 1").Select
    otherWorkbook.Sheets("Details 1").Copy After:=Application.ThisWorkbook.Sheets("Details 2")
End Sub

该代码段假设

• 您要复制到“ ThisWorkbook”中-与vba关联的工作簿
• 这两个工作簿都包含“详细信息1”和“详细信息2”
• 此代码运行后，“ Generator.xlsm”将保持打开状态。

Answer 2

您的问题是由以下行引起的：

myPath = Application.ActiveWorkbook.FullName

它返回对象的名称， 包括其在磁盘上的路径

若要解决Workbooks集合中的项目，可以使用不包含其路径的Name属性。 将上面的行更改为：

myPath = Application.ActiveWorkbook.Name

只要ActiveWorkbook确实包含名为Detail 2的工作表，就可以解决您的问题。

就是说，您应该避免使用ActiveWorkbook因为它可能不是您认为的那样。 假设要复制到保存Sub的工作簿中，则引用ThisWorkbook.Name会更安全。