作者dbfhunter (新年新希望)
看板Office
標題[算表] VBA ㄧ次修改多個開啟檔案內容
時間Fri Apr 28 01:07:46 2023
軟體: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://webptt.com/m.aspx?n=bbs/Office/M.1682615268.A.F46.html
1F：→ newacc: 你先說說遇到什麼問題？執行結果不如預期？發生錯誤？04/28 01:34
※ 編輯: dbfhunter (223.141.244.34 臺灣), 04/28/2023 01:43:11
2F：→ dbfhunter: 不好意思，已經更新問題了，謝謝04/28 01:43
※ 編輯: dbfhunter (223.141.244.34 臺灣), 04/28/2023 01:44:45
3F：→ newacc: 可能是因為你寫了For each wb但沒有叫它做Next wb？ 04/28 15:12
4F：→ newacc: 在For each下面加一行wb.Activate試試看 04/28 15:14
5F：→ newacc: 然後在最後面加一句Next wb 04/28 15:14
6F：→ dbfhunter: 謝謝大大，我後來用Do while filename 和 filename = 04/29 00:33
7F：→ dbfhunter: die 04/29 00:33
8F：→ dbfhunter: Filename = Dir() 04/29 00:34