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

看板Office作者 (新年新希望)時間1年前 (2023/04/28 01:07), 1年前編輯推噓0(0推 0噓 8→)
留言8則, 2人參與, 1年前最新討論串1/2 (看更多)
軟體: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
→
04/28 01:34, 1年前 , 1F
你先說說遇到什麼問題？執行結果不如預期？發生錯誤？
04/28 01:34, 1F
※ 編輯: dbfhunter (223.141.244.34 臺灣), 04/28/2023 01:43:11
→
04/28 01:43, 1年前 , 2F
不好意思，已經更新問題了，謝謝
04/28 01:43, 2F
※ 編輯: dbfhunter (223.141.244.34 臺灣), 04/28/2023 01:44:45
→
04/28 15:12, 1年前 , 3F
可能是因為你寫了For each wb但沒有叫它做Next wb？
04/28 15:12, 3F
→
04/28 15:14, 1年前 , 4F
在For each下面加一行wb.Activate試試看
04/28 15:14, 4F
→
04/28 15:14, 1年前 , 5F
然後在最後面加一句Next wb
04/28 15:14, 5F
→
04/29 00:33, 1年前 , 6F
謝謝大大，我後來用Do while filename 和 filename =
04/29 00:33, 6F
→
04/29 00:33, 1年前 , 7F
die
04/29 00:33, 7F
→
04/29 00:34, 1年前 , 8F
Filename = Dir()
04/29 00:34, 8F
‣ 更多 dbfhunter 的文章
文章代碼(AID): #1aIglaz6 (Office)
‣ 更多 dbfhunter 的文章
文章代碼(AID): #1aIglaz6 (Office)