excel - 运行时错误“1004”：对象“_Global”的方法“范围”失败

Question

我正在尝试将表从一个工作表复制到同一个工作簿中的另一个，并将其命名为“Table2”，但我不断收到错误代码“运行时错误'1004'：对象'_Global的方法'范围' ' 失败的”。

VB：

With Sheets("Sheet1")
    .Range("table1[[#all], [#all]]").Copy Destination:=Sheets("Results").Range("A1")
End With

With Sheets("Results")
    Set copyData = .Range("a1").CurrentRegion 'sets range to that containing data
    .ListObjects.Add(xlSrcRange, Range(copyData), , xlYes).Name = "Table2" 'HERE IS THE PROBLEM LINE
End With

真的在为此苦苦挣扎，非常感谢任何帮助。

Answer 1

您可以使用索引号访问该表。

With Sheets("Sheet1")
    .Range("table1[[#all], [#all]]").Copy Destination:=Sheets("Results").Range("A1")
End With

With Sheets("Results")
    Set copyData = .Range("a1").CurrentRegion 'sets range to that containing data
      .ListObjects(1).Name = "Table2"
End With