軟體: Excel
版本:Office 2013
我有上百個以下的EXCEL檔案，每個檔案內都有三個工作表，分別表示受訪者的各類表現
每個類別的工作表格式相同，反之則不同，例如不同檔案間"[*]體適能表現"的工作表
內的格式是一樣的。
▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
檔案名稱1：小明.xls
工作表名稱1:[小明]數學成績、[小明]體適能表現、[小明]出缺席狀況
檔案名稱2：小莉.xls
工作表名稱2：[小莉]數學成績、[小莉]體適能表現、[小莉]出缺席狀況
檔案名稱3：小捲.xls
工作表名稱3：[小捲]數學成績、[小捲]體適能表現、[小捲]出缺席狀況
▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
想請問是否有辦法藉由巨集，合併不同檔案間的特定工作表成為一個單一的工作活頁簿？
例如，我想要製作一個EXCEL檔案，表示所有受訪者的體適能表現？
過往合併多項EXCEL檔案，我都是藉由以下部落格提供的巨集。
http://blog.bestdaylong.com/2008/07/excelcopy.html
這個巨集僅能合併預設第一個的工作表，或者指定相同名稱的工作表。
但是這次合併檔案的工作表名稱不相同（卻有規律性），而且又落在第二個與第三個工作表
請問是否可小幅修改上述的巨集，即能達到我想要的目的？
或者，我也想到只要有辦法批次修改不同檔案的工作表名稱，一致稱為sheet2 與sheet3
就可再使用上述巨集來合併EXCEL檔案。

將切換視窗windows(filename).activesheet改為ActiveWorkbook.Sheets("[" & replace(filename,".xls","") &"]體適能表現")