作者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/cn.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