[算表] VBA ㄧ次修改多個開啟檔案內容

[dbfhunter (新年新希望)]

軟體:excel

版本:office 365

想請教各位前輩，我想將多個開啟的檔案內容裡搜尋到HHH後移到右邊一格儲存格的值改
為000，請問各位前輩，我的VBA哪邊有錯，執行後，只會修改到最後一個檔案而已，其他
先
開起的檔案都沒有修改到，謝謝大家！

Dim wb as workbook
Dim ABC as range
For each wb in application.workbook

Set ABC = Activesheet.Cells.Find(What:="HHH",
LookIn:=xIFormulas2,
LookAt:=x1Part, SearchOrder: =xlByRows, SearchDirection: xINext,
MatchCase: =False, SearchFormat: =False)
ABC.Offset (, 1): Select
ActiveCell. FormulaR1C1 = "000"

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.141.244.34 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1682615268.A.F46.html
→ newacc: 你先說說遇到什麼問題？執行結果不如預期？發生錯誤？
※ 編輯: dbfhunter (223.141.244.34 臺灣), 04/28/2023 01:43:11
→ dbfhunter: 不好意思，已經更新問題了，謝謝
※ 編輯: dbfhunter (223.141.244.34 臺灣), 04/28/2023 01:44:45
→ newacc: 可能是因為你寫了For each wb但沒有叫它做Next wb？
→ newacc: 在For each下面加一行wb.Activate試試看
→ newacc: 然後在最後面加一句Next wb
→ dbfhunter: 謝謝大大，我後來用Do while  filename 和 filename =
→ dbfhunter:  die
→ dbfhunter: Filename = Dir()