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

看板Office作者 (可愛到犯規)時間9年前 (2016/07/11 23:21), 11年前編輯推噓0(009)
留言9則, 2人參與, 最新討論串3/3 (看更多)
※ 引述《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

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

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

01/09 17:40,
) &"]體適能表現")
01/09 17:40
想請教s大 如果有類似的問題,是要併多個檔裡的某一頁(不固定地方)到新檔的不同頁籤, 頁籤名稱也不同… 有修改的辦法嗎? 因為檔案由同事們分著做,大家都很有自己的想法 偏要彙總時就要一個一個貼 最近又常在修檔… 一直開檔複制(連格式)貼上,也怕會人工失誤 謝謝 -- -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.169.72.23 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1468250512.A.357.html

07/11 23:44, , 1F
若是整合的工作表名稱是"數學"而多個檔案的工作表出現的是
07/11 23:44, 1F

07/11 23:45, , 2F
類似"數學-1"、"數字001"...之類的話,可用for each 變數
07/11 23:45, 2F

07/11 23:46, , 3F
in sheets....next迴圈,迴圈內再以instr來判斷"數字"是否
07/11 23:46, 3F

07/11 23:49, , 4F
於變數.name內(大於0時)
07/11 23:49, 4F

07/11 23:50, , 5F
若是整合的工作表名稱和多個檔案的工作表名稱無關連的話
07/11 23:50, 5F

07/11 23:51, , 6F
而某個工作表內有出現某個關鍵字時
07/11 23:51, 6F

07/11 23:52, , 7F
可用for each 變數...next迴圈,迴圈內以range.find來判斷
07/11 23:52, 7F

07/11 23:53, , 8F
is nothing為無出現,反相可用not
07/11 23:53, 8F

07/12 00:49, , 9F
我再試試,謝謝
07/12 00:49, 9F
文章代碼(AID): #1NWxcGDN (Office)
文章代碼(AID): #1NWxcGDN (Office)