VBA复制Excel工作表至另一工作簿末尾报错：下标越界

这个错误的根源很明确——你代码里的Sheets.Count没有指定对应的工作簿对象，VBA会默认使用当前激活的工作簿（也就是你之前激活的Master Workpaper Template.xlsx）的工作表数量，但你实际需要的是目标工作簿Workbook Template.xlsm的工作表总数，这就导致你尝试访问目标工作簿里不存在的工作表序号，触发了"下标越界"错误。

快速修正原代码 #

只需要给Sheets.Count明确指定目标工作簿即可：

Windows("Master Workpaper Template.xlsx").Activate
Sheets("E. Financial Stmts & Book Inc").Select
Sheets("E. Financial Stmts & Book Inc").Copy After:=Workbooks("Workbook Template.xlsm").Sheets(Workbooks("Workbook Template.xlsm").Sheets.Count)

更健壮的推荐写法（避免Activate/Select） #

录制宏生成的代码经常会带Activate和Select，但这是VBA里的常见坑——一旦工作簿/工作表的激活状态意外变化，代码就容易出错。推荐用对象变量来明确引用，代码更清晰也更稳定：

Dim sourceWB As Workbook
Dim targetWB As Workbook
Dim sourceSheet As Worksheet

' 绑定源工作簿和要复制的工作表
Set sourceWB = Workbooks("Master Workpaper Template.xlsx")
Set sourceSheet = sourceWB.Sheets("E. Financial Stmts & Book Inc")

' 绑定目标工作簿
Set targetWB = Workbooks("Workbook Template.xlsm")

' 直接复制到目标工作簿的最后位置
sourceSheet.Copy After:=targetWB.Sheets(targetWB.Sheets.Count)

额外注意事项 #

• 确保目标工作簿Workbook Template.xlsm已经在Excel中打开，如果没打开，Workbooks("Workbook Template.xlsm")会找不到对象，同样会触发下标越界错误。
• 如果目标工作簿可能有隐藏工作表，Sheets.Count依然会统计所有工作表（包括隐藏的），如果你只想复制到可见工作表的末尾，需要额外处理，但一般默认需求都是所有工作表的最后位置，这个没问题。

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