求助：VBA从活动工作簿复制指定工作表至已有工作簿失败

我帮你排查了这段VBA代码，发现几个关键问题导致复制操作失败，咱们一步步来修正：

问题分析 #

• 工作簿引用错误：你用Workbooks(input_Path)指定目标工作簿，但Workbooks集合的索引只能是**文件名（带扩展名）**或者工作簿的序号，不能直接用完整路径。比如如果input_Path是C:\Files\Data.xlsx，Workbooks里的索引应该是Data.xlsx，用完整路径会导致找不到目标工作簿，直接触发复制失败。
• 未明确工作表所属工作簿：Worksheets(Array("Summary", "Top Reasons"))没有指定是哪个工作簿里的表，VBA会默认使用当前活动工作簿，但你先后打开了两个工作簿，活动状态可能和预期不一致，导致找不到要复制的表。
• 目标位置的工作表计数未指定工作簿：Worksheets.Count同样没有绑定具体工作簿，默认取活动工作簿的表数量，会导致插入位置完全错误。

修正后的代码 #

把打开的工作簿赋值给对象变量，用变量直接引用，彻底避免依赖活动工作簿的不确定性：

Sub CopySheetsToTargetWorkbook()
    Dim inputPath As String
    Dim summaryPath As String
    Dim targetWB As Workbook
    Dim sourceWB As Workbook
    
    ' 获取文本框中的文件路径
    inputPath = Sheet1.TextBox1.Text
    summaryPath = Sheet1.TextBox3.Text
    
    ' 打开工作簿并绑定到变量
    Set targetWB = Workbooks.Open(inputPath)
    Set sourceWB = Workbooks.Open(summaryPath)
    
    ' 从源工作簿复制指定表到目标工作簿的最后位置
    sourceWB.Worksheets(Array("Summary", "Top Reasons")).Copy After:=targetWB.Worksheets(targetWB.Worksheets.Count)
    
    ' 可选：如果需要自动保存/关闭工作簿，可添加以下代码
    ' targetWB.Save
    ' sourceWB.Close SaveChanges:=False
End Sub

关键修正点说明 #

• 用targetWB（目标工作簿）和sourceWB（来源汇总工作簿）两个变量存储打开的文件，后续所有操作都通过变量直接引用，逻辑更清晰，不会出现引用混乱。
• 明确指定要复制的工作表来自sourceWB，目标插入位置是targetWB的最后一张表之后，完全符合你的需求逻辑。
• 变量名做了优化，比如summary_file改为summaryPath，更贴合VBA命名习惯，可读性更强。

额外提醒：要确保TextBox1和TextBox3里的路径是完整带扩展名的文件路径（比如C:\Test\MyTarget.xlsx），否则Workbooks.Open会直接报错。如果目标工作簿可能已经打开，还可以添加检查逻辑避免重复打开副本。

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