[算表] VBA 將不同資料夾內同檔名的工作表合併

看板Office作者 (支持火箭,不離不棄)時間7年前 (2017/06/04 02:48), 7年前編輯推噓0(0推 0噓 12→)
留言12則, 2人參與, 最新討論串1/1
軟體: EXCEL 版本: 2013 不好意思想請教一個問題, 問題如下: 有N個資料夾,裡面都存有N個同檔名的檔案, 這樣的話用VBA的語法 要怎麼將不同資料夾內檔名一樣的檔案合併成一個檔呢? 謝謝 EX: 有三個資料夾分別為 A B C 而這三個資料夾中分別都存有 AA.xls和BB.xls這兩個檔案 然後現在要把在A B C三個資料夾中AA.xls內的工作表都合併成一個工作表, 也要把三個資料夾中BB.xls內的工作表都合併成一個工作表, 有辦法嗎? 問題有點複雜, 如有說明不清楚的地方請見諒, 謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.185.89.93 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1496515709.A.3D0.html ※ 編輯: tmac41103 (111.185.89.93), 06/04/2017 02:49:49
→
06/04 11:40, , 1F
n個資料夾是於同一個目錄下，取得資料夾名稱可以
06/04 11:40, 1F
→
06/04 11:42, , 2F
scripting.filesystemobject迴圈於getfolder.subfolders
06/04 11:42, 2F
→
06/04 11:47, , 3F
取以其中一個資料夾下不定數檔名為依據合併成一個活頁簿的
06/04 11:47, 3F
→
06/04 11:48, , 4F
話，可以回文取得的資料夾名稱，迴圈於getfolder.files
06/04 11:48, 4F
→
06/04 11:54, , 5F
或以取得的資料夾名稱，迴圈於dir
06/04 11:54, 5F
→
06/04 11:56, , 6F
其他的動作如開檔workbook.open，如檔案內又有一個以上工
06/04 11:56, 6F
→
06/04 11:58, , 7F
作表要複製的話，迴圈於sheets或worksheets內
06/04 11:58, 7F
→
06/04 11:59, , 8F
複製range.copy、定位range.end、貼上worksheets.paste或
06/04 11:59, 8F
→
06/04 12:00, , 9F
range.pastespecial、關檔workbook.close
06/04 12:00, 9F
→
06/04 12:08, , 10F
如為複製值的話可以range = range.value，定位另有range.
06/04 12:08, 10F
→
06/04 12:09, , 11F
find
06/04 12:09, 11F
→
06/04 22:51, , 12F
挖賽太猛了... 我再依據您給的提示研究一下, 感謝!!
06/04 22:51, 12F
‣ 更多 tmac41103 的文章
文章代碼(AID): #1PCmHzFG (Office)