![](/img/trans.png)
[英]Run-time error '1004' : Method 'Range' of object'_Global' failed
[英]Run-time error '1004': Method 'Range' of object '_Global' failed
我正在尝试将一个表从一个工作表复制到同一工作簿中的另一个工作表,并将其命名为“ 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
真正为此苦苦挣扎,任何帮助深表感谢。
您可以使用索引号访问该表。
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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.