軟體: Excel VBA
版本: 2013
請問如想要利用VBA寫出如下結果
1. value add 固定欄位 如 range(B2:F152)
2. 打開當月每份檔案相加檔名一樣 只有最後面日期不同
如XXXXX_20190101.xls-XXXXX_20190131.xls
3. 將整個月各欄位加總結果於當月工作日最後一個檔案
請問有什麼比較簡便的寫法呢?

1號20190101和最後一日20190131可鍵於儲存格內先開啟workbooks.open最後當月最後一日的檔案(相同檔名字串&上述最後一日的儲存格&.副檔名)迴圈1號(20190101)至當月最後一日前一日複製range.copy，選擇性貼上range.pastespecial operation以xladd加至最後一日的檔案

這聽起來直接用公式就可以達成，直接把每個日期要被加總的數字叫到同一個表格加總就行了。

感激S大回文 想請問如果並不是所有當月日期都有檔案要怎麼跳過那些不屬於工作日或是自動判斷資料夾內沒有該日期檔案就跳過的迴圈寫法呢？

可判斷dir("路徑\*" & 迴圈變數 & ".xls") 不為空字串<>""時執行動作如果資料夾內都為當月檔案的話，可迴圈於dir是否為空字串

了解 我會試試 謝謝 有問題再請教