Excel Vba : Using table name as a variable

Question

我正在尝试将一个表的内容复制到另一个表。在此过程中我只复制一些列。抱歉，如果我的问题太基础，因为我是 Excel VBA 新手

Dim tableName As ListObject
Set tableName = Worksheets("DataSource").ListObjects(1)
[Table1[TaskUID]].Copy [tableName[TaskUID]]

第 3 行抛出错误“需要对象”

任何人都可以帮忙解决语法吗

Answer 1

它不起作用的原因是因为使用括号，[]，就像在括号内的表达式上调用Application.Evaluate()，所以你不能在那里使用局部变量名称，因为将评估表达式的东西不知道它们。它找不到名为 tableName 的列表对象。

您可以避免使用括号(可以说，您总是应该这样做):

Dim tableName As ListObject
Set tableName = Worksheets("DataSource").ListObjects(1)

ListObjects("Table1").ListColumns("TaskUID").DataBodyRange.Copy tableName.ListColumns("TaskUID").DataBodyRange