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

看板Office作者 (...)時間11年前 (2015/01/09 17:08), 11年前編輯推噓0(003)
留言3則, 1人參與, 最新討論串1/3 (看更多)
軟體: 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檔案。 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.109.197.70 ※ 文章網址: http://www.ptt.cc/bbs/Office/M.1420794509.A.BCE.html ※ 編輯: faeriay (140.109.197.70), 01/09/2015 17:10:46 ※ 編輯: faeriay (140.109.197.70), 01/09/2015 17:11:35

01/09 17:39, , 1F
將切換視窗windows(filename).activesheet改為
01/09 17:39, 1F

01/09 17:39, , 2F
ActiveWorkbook.Sheets("[" & replace(filename,".xls",""
01/09 17:39, 2F

01/09 17:40, , 3F
) &"]體適能表現")
01/09 17:40, 3F
文章代碼(AID): #1KhvgDlE (Office)
文章代碼(AID): #1KhvgDlE (Office)