作者tmac41103 (支持火箭,不離不棄)
看板Office
標題[算表] VBA 將不同資料夾內同檔名的工作表合併
時間Sun Jun 4 02:48:22 2017
軟體: 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
→ soyoso: n個資料夾是於同一個目錄下,取得資料夾名稱可以 06/04 11:40
→ soyoso: scripting.filesystemobject迴圈於getfolder.subfolders 06/04 11:42
→ soyoso: 取以其中一個資料夾下不定數檔名為依據合併成一個活頁簿的 06/04 11:47
→ soyoso: 話,可以回文取得的資料夾名稱,迴圈於getfolder.files 06/04 11:48
→ soyoso: 或以取得的資料夾名稱,迴圈於dir 06/04 11:54
→ soyoso: 其他的動作如開檔workbook.open,如檔案內又有一個以上工 06/04 11:56
→ soyoso: 作表要複製的話,迴圈於sheets或worksheets內 06/04 11:58
→ soyoso: 複製range.copy、定位range.end、貼上worksheets.paste或 06/04 11:59
→ soyoso: range.pastespecial、關檔workbook.close 06/04 12:00
→ soyoso: 如為複製值的話可以range = range.value,定位另有range. 06/04 12:08
→ soyoso: find 06/04 12:09
→ tmac41103: 挖賽太猛了... 我再依據您給的提示研究一下, 感謝!! 06/04 22:51