檔案清單
: ▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
: 檔案名稱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