档案清单
: ▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
: 档案名称1：小明.xls
: 工作表名称1:[小明]数学成绩、[小明]体适能表现、[小明]出缺席状况
: 档案名称2：小莉.xls
: 工作表名称2：[小莉]数学成绩、[小莉]体适能表现、[小莉]出缺席状况
: 档案名称3：小卷.xls
: 工作表名称3：[小卷]数学成绩、[小卷]体适能表现、[小卷]出缺席状况
: ▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
: 想请问是否有办法借由宏，合并不同档案间的特定工作表成为一个单一的工作活页簿？
: 例如，我想要制作一个EXCEL档案，表示所有受访者的体适能表现？
: 过往合并多项EXCEL档案，我都是借由以下部落格提供的宏。
: http://blog.bestdaylong.com/2008/07/excelcopy.html
我按照SO大指导，将切换视窗的原始码从▓ Windows(Filename).ActiveWorkbook.Sheets
改成▓
ActiveWorkbook.Sheets("【" & Replace(Filename, ".xls", "") & "】体适能表现")
但是执行后出现错误，显示：
执行阶段错误9':
阵列索引超出范围
我曾经尝试删除 "xls"或 ""的原始码，但是仍未成功。以下连结是范例档案，烦请帮忙
研究如何可成功合并不同工作表的档案
https://dl.dropboxusercontent.com/u/14367175/MergeSheet.zip

还有"于【2014】"的字串要加入https://db.tt/KsquvSpo 下方再加入objsheet.Select另外Dim a, b, c As Integer '宣告a,b,c为整数，这里的备注是错误的，整数(integer)只有c而已

谢谢so大，已经可顺利合并档案。