運行時錯誤'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