Access编程向Excel添加工作表时意外生成多张多余工作表问题

1. 最常见的触发原因是执行添加操作前，目标工作簿内有多个工作表处于同时选中（成组）状态：Excel的工作表添加逻辑默认会生成与当前选中工作表数量一致的新表，若你之前的操作选中了10个工作表，执行Add方法时就会一次性新增10张表，其中第一张被赋值为Statusbericht0，剩余9张按照Excel默认命名规则生成Tabel2~Tabel10的工作表。
2. 次要可能为你使用的Excel应用实例的默认添加参数被修改，或之前的操作隐含了批量添加逻辑，但从你给出的单条代码来看，多表成组选中的概率最高。

• 操作前主动取消工作表成组状态，强制选中单个工作表清除多选状态，避免触发批量添加：
  可在执行Add操作前增加一行代码：
  xlWB.Worksheets(1).Select
• 显式指定Add方法的Count参数，明确仅添加1个工作表，不要依赖默认参数，同时拆分链式赋值为独立对象操作，跨应用COM交互场景下稳定性更高，修改后代码如下：

  ' Access跨应用调用Excel时，用Object声明可避免Excel库引用缺失报错
  Dim newWs As Object
  Set newWs = xlWB.Worksheets.Add(Count:=1)
  newWs.Name = "Statusbericht0"
  

• 若需要验证问题根源，可在执行Add操作前打印当前选中的工作表数量：

  Debug.Print "当前选中工作表数：" & xlWB.Windows(1).SelectedSheets.Count
  

  若输出值大于1，即可确认是多表选中导致的批量新增问题。

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