Re: [算表] 各別合併不同檔案內的第二及第三工作表

作者: faeriay (...)   2015-01-12 11:41:31
檔案清單
: ▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
: 檔案名稱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
作者: soyoso (我是耀宗)   2015-01-12 12:52:00
還有"於【2014】"的字串要加入https://db.tt/KsquvSpo 下方再加入objsheet.Select另外Dim a, b, c As Integer '宣告a,b,c為整數,這裡的備註是錯誤的,整數(integer)只有c而已
作者: faeriay (...)   2015-01-12 14:20:00
謝謝so大,已經可順利合併檔案。

Links booklink

Contact Us: admin [ a t ] ucptt.com