自動開啟同資料夾的各檔案填入資料值 - 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)

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。