Excel宏开发问题：无法重命名新工作表的ListObject

错误根源 #

你代码最后一行Set wsn.ListObjects(1).Name = "TEST"存在两个关键问题：

• 多余的Set关键字：Name是ListObject的普通属性，不是对象引用，直接赋值即可，不需要用Set。
• 未做存在性校验：如果复制的Sheet0中没有创建Excel表格（ListObject），ListObjects(1)会找不到目标对象，直接触发报错。

修正后的代码 #

把最后一行代码替换为以下内容，既解决语法问题，又避免空引用风险：

' 先确认工作表中存在表格，再执行重命名
If wsn.ListObjects.Count > 0 Then
    wsn.ListObjects(1).Name = "TEST" ' 直接给Name属性赋值，去掉Set
Else
    MsgBox "新复制的工作表中未找到表格，请检查模板Sheet0", vbExclamation
End If

额外优化建议 #

1. 显式声明wsn变量：当前代码中wsn未声明，建议在变量声明段添加Dim wsn As Worksheet，避免隐式类型转换带来的问题。
2. 替换ActiveSheet依赖：复制工作表后直接将新表赋值给变量，不要依赖ActiveSheet（用户中途操作其他工作表会导致引用错误）：

   ' 修改复制与命名的代码段
   ws0.Copy After:=Worksheets(Sheets.Count)
   Set wsn = ActiveSheet ' 复制完成后新表即为活动表，直接获取引用
   ' 生成表名逻辑不变
   If taskNum = "N/A" Then
       tabName = Replace(ctrNum, "-", "") & "-" & activDes
   Else
       tabName = Replace(ctrNum, "-", "") & "-" & taskNum & "-" & activDes
   End If
   wsn.Name = tabName
   

后续步骤参考（步骤6） #

解决步骤5后，要将新表格追加至Master表可按以下思路实现：

• 获取Master工作表的主ListObject
• 跳过新表格的表头行，遍历所有数据行
• 将数据逐行追加到主表格，同时新增一列填入新表格的名称（作为来源标识）

内容的提问来源于stack exchange，提问作者Phentius Khan