作者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