→ soyoso: 還有"於【2014】"的字串要加入 01/12 12:52
→ soyoso: 另外Dim a, b, c As Integer '宣告a,b,c為整數，這裡的備 01/12 12:55
→ soyoso: 註是錯誤的，整數(integer)只有c而已 01/12 12:55
→ faeriay: 謝謝so大，已經可順利合併檔案。 01/12 14:20
檔案清單
: ▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
: 檔案名稱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
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.109.197.70
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1421034094.A.A37.html