自動開啟同資料夾的各檔案填入資料值 - Excel程式區

[發問] 自動開啟同資料夾的各檔案填入資料值

1^# 跳轉到 »

發表於 2020-7-21 08:31 | 顯示全部帖子

回復 1# papaya

A = Dir(Path & "\*.xls")
改成
A = Dir(Path & "\遺漏大數據-今彩539*.xls")

2^#

發表於 2020-7-21 09:52 | 顯示全部帖子

回復 3# papaya

不要將程式與要修改的檔案放在同一個資料夾
A = Dir(Path & "\檔案資料夾名\*.xls")
Do While A <> ""
With Workbooks.Open(Path & "\檔案資料夾名\" & A)

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。