[算表] Excel VBA 執行合併檔案

[koking730929 (蘭斯洛)]

軟體: Excel VBA

版本: 2013


請問如想要利用VBA寫出如下結果

1. value add 固定欄位 如 range(B2:F152)
2. 打開當月每份檔案相加檔名一樣 只有最後面日期不同
   如XXXXX_20190101.xls-XXXXX_20190131.xls
3. 將整個月各欄位加總結果於當月工作日最後一個檔案

請問有什麼比較簡便的寫法呢?

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.44.100.233 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1576852649.A.AD0.html
※ 編輯: koking730929 (114.44.100.233 臺灣), 12/20/2019 22:38:30
→ soyoso: 1號20190101和最後一日20190131可鍵於儲存格內
→ soyoso: 先開啟workbooks.open最後當月最後一日的檔案(相同檔名字
→ soyoso: 串&上述最後一日的儲存格&.副檔名)
→ soyoso: 迴圈1號(20190101)至當月最後一日前一日
→ soyoso: 複製range.copy，選擇性貼上range.pastespecial operation
→ soyoso: 以xladd加至最後一日的檔案
→ newton41: 這聽起來直接用公式就可以達成，直接把每個日期要被加總
→ newton41: 的數字叫到同一個表格加總就行了。
→ koking730929: 感激S大回文 想請問如果並不是所有當月日期都有檔案
→ koking730929: 要怎麼跳過那些不屬於工作日或是自動判斷資料夾
→ koking730929: 內沒有該日期檔案就跳過的迴圈寫法呢？
→ soyoso: 可判斷dir("路徑\*" & 迴圈變數 & ".xls") 不為空字串<>""
→ soyoso: 時執行動作
→ soyoso: 如果資料夾內都為當月檔案的話，可迴圈於dir是否為空字串
→ koking730929: 了解 我會試試 謝謝 有問題再請教