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

[docse (可愛到犯規)]

※ 引述《faeriay (...)》之銘言：
軟體: 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
→ soyoso: 將切換視窗windows(filename).activesheet改為
→ soyoso: ActiveWorkbook.Sheets("[" & replace(filename,".xls",""
→ soyoso: ) &"]體適能表現")
想請教s大
如果有類似的問題，是要併多個檔裡的某一頁(不固定地方)到新檔的不同頁籤，
頁籤名稱也不同…
有修改的辦法嗎?

因為檔案由同事們分著做，大家都很有自己的想法
偏要彙總時就要一個一個貼
最近又常在修檔…  一直開檔複制(連格式)貼上，也怕會人工失誤

謝謝

--



--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.169.72.23
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1468250512.A.357.html
→ soyoso: 若是整合的工作表名稱是"數學"而多個檔案的工作表出現的是
→ soyoso: 類似"數學-1"、"數字001"...之類的話，可用for each 變數
→ soyoso: in sheets....next迴圈，迴圈內再以instr來判斷"數字"是否
→ soyoso: 於變數.name內(大於0時)
→ soyoso: 若是整合的工作表名稱和多個檔案的工作表名稱無關連的話
→ soyoso: 而某個工作表內有出現某個關鍵字時
→ soyoso: 可用for each 變數...next迴圈，迴圈內以range.find來判斷
→ soyoso: is nothing為無出現，反相可用not
→ docse: 我再試試，謝謝