作者koking730929 (蘭斯洛)
看板Office
標題[算表] Excel VBA 執行合併檔案
時間Fri Dec 20 22:37:26 2019
軟體: 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://webptt.com/m.aspx?n=bbs/Office/M.1576852649.A.AD0.html
※ 編輯: koking730929 (114.44.100.233 臺灣), 12/20/2019 22:38:30
1F:→ soyoso: 1號20190101和最後一日20190131可鍵於儲存格內 12/20 22:51
2F:→ soyoso: 先開啟workbooks.open最後當月最後一日的檔案(相同檔名字 12/20 22:51
3F:→ soyoso: 串&上述最後一日的儲存格&.副檔名) 12/20 22:51
4F:→ soyoso: 迴圈1號(20190101)至當月最後一日前一日 12/20 22:51
5F:→ soyoso: 複製range.copy,選擇性貼上range.pastespecial operation 12/20 22:51
6F:→ soyoso: 以xladd加至最後一日的檔案 12/20 22:51
7F:→ newton41: 這聽起來直接用公式就可以達成,直接把每個日期要被加總 12/20 22:52
8F:→ newton41: 的數字叫到同一個表格加總就行了。 12/20 22:52
9F:→ koking730929: 感激S大回文 想請問如果並不是所有當月日期都有檔案 12/21 00:06
10F:→ koking730929: 要怎麼跳過那些不屬於工作日或是自動判斷資料夾 12/21 00:06
11F:→ koking730929: 內沒有該日期檔案就跳過的迴圈寫法呢? 12/21 00:07
12F:→ soyoso: 可判斷dir("路徑\*" & 迴圈變數 & ".xls") 不為空字串<>"" 12/21 08:42
13F:→ soyoso: 時執行動作 12/21 08:42
14F:→ soyoso: 如果資料夾內都為當月檔案的話,可迴圈於dir是否為空字串 12/21 08:44
15F:→ koking730929: 了解 我會試試 謝謝 有問題再請教 12/21 12:35