PTT數位生活區 / Office

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

看板Office作者 (蘭斯洛)時間6年前 (2019/12/20 22:37), 6年前編輯推噓0(0推 0噓 15→)
留言15則, 3人參與, 6年前最新討論串1/1
軟體: 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
→
12/20 22:51, 6年前 , 1F
1號20190101和最後一日20190131可鍵於儲存格內
12/20 22:51, 1F
→
12/20 22:51, 6年前 , 2F
先開啟workbooks.open最後當月最後一日的檔案(相同檔名字
12/20 22:51, 2F
→
12/20 22:51, 6年前 , 3F
串&上述最後一日的儲存格&.副檔名)
12/20 22:51, 3F
→
12/20 22:51, 6年前 , 4F
迴圈1號(20190101)至當月最後一日前一日
12/20 22:51, 4F
→
12/20 22:51, 6年前 , 5F
複製range.copy，選擇性貼上range.pastespecial operation
12/20 22:51, 5F
→
12/20 22:51, 6年前 , 6F
以xladd加至最後一日的檔案
12/20 22:51, 6F
→
12/20 22:52, 6年前 , 7F
這聽起來直接用公式就可以達成，直接把每個日期要被加總
12/20 22:52, 7F
→
12/20 22:52, 6年前 , 8F
的數字叫到同一個表格加總就行了。
12/20 22:52, 8F
→
12/21 00:06, 6年前 , 9F
感激S大回文 想請問如果並不是所有當月日期都有檔案
12/21 00:06, 9F
→
12/21 00:06, 6年前 , 10F
要怎麼跳過那些不屬於工作日或是自動判斷資料夾
12/21 00:06, 10F
→
12/21 00:07, 6年前 , 11F
內沒有該日期檔案就跳過的迴圈寫法呢？
12/21 00:07, 11F
→
12/21 08:42, 6年前 , 12F
可判斷dir("路徑\*" & 迴圈變數 & ".xls") 不為空字串<>""
12/21 08:42, 12F
→
12/21 08:42, 6年前 , 13F
時執行動作
12/21 08:42, 13F
→
12/21 08:44, 6年前 , 14F
如果資料夾內都為當月檔案的話，可迴圈於dir是否為空字串
12/21 08:44, 14F
→
12/21 12:35, 6年前 , 15F
了解 我會試試 謝謝 有問題再請教
12/21 12:35, 15F
‣ 更多 koking730929 的文章
文章代碼(AID): #1T_DofhG (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 koking730929 的文章
文章代碼(AID): #1T_DofhG (Office)