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

看板Office作者 (...)時間11年前 (2015/01/12 11:41), 編輯推噓0(005)
留言5則, 2人參與, 最新討論串2/3 (看更多)
檔案清單 : ▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁ : 檔案名稱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

01/12 12:52, , 1F
還有"於【2014】"的字串要加入
01/12 12:52, 1F

01/12 12:53, , 2F
https://db.tt/KsquvSpo 下方再加入objsheet.Select
01/12 12:53, 2F

01/12 12:55, , 3F
另外Dim a, b, c As Integer '宣告a,b,c為整數,這裡的備
01/12 12:55, 3F

01/12 12:55, , 4F
註是錯誤的,整數(integer)只有c而已
01/12 12:55, 4F

01/12 14:20, , 5F
謝謝so大,已經可順利合併檔案。
01/12 14:20, 5F
文章代碼(AID): #1Kiq9ket (Office)
文章代碼(AID): #1Kiq9ket (Office)