運行時錯誤'1004'：對象'_Global'的方法'Range'失敗

Question

我正在嘗試將一個表從一個工作表復制到同一工作簿中的另一個工作表，並將其命名為“ Table2”，但是我一直收到錯誤代碼“運行時錯誤'1004'：對象'_Global的方法'Range' '失敗”。

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