vba批量替换所有工作簿内指定内容，报错，请指点

arrny20000

批量替换同目录下所有工作簿内的指定内容，为什么报“424错误，要求对象”错误？请指点，谢谢。

Sub Test()
Dim myPath$, myName$, AK As Workbook
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
myPath = ThisWorkbook.Path
myName = Dir(myPath & "\" & "*.et")
  Do While myName <> ""
If myName <> ThisWorkbook.Name Then
      Set AK = Workbooks.Open(myPath & "\" & myName)
End If

      Cells.Replace What:="abc", Replacement:="efg"
      AK.Save
      AK.Close
      myName = Dir
   Loop
   Application.DisplayAlerts = True
   Application.ScreenUpdating = True
End Sub

arrny20000

在线等，谢谢

everbest2015

应该是cells.replace这句过不去吧,试试ak.表名.

arrny20000

请问ak.sheet1加哪？谢谢

arrny20000

似乎运行到AK.SAVE和AK.CLOSE 报错了

chxw68

猜测着修改的，供参考。

1. Sub Test()
   
2.   Dim myPath$, myName$, AK As Workbook
   
3.   Application.ScreenUpdating = False
   
4.   Application.DisplayAlerts = False
   
5.   myPath = ThisWorkbook.Path
   
6.   myName = Dir(myPath & "" & "*.et")
   
7.   Do While myName <> ""
   
8.     If myName <> ThisWorkbook.Name Then
   
9.       Set AK = Workbooks.Open(myPath & "" & myName)
   
10.       With AK
    
11.         For Each ws In .Worksheets
    
12.           With ws
    
13.             .Cells.Replace What:="abc", Replacement:="efg"
    
14.           End With
    
15.         Next
    
16.         .Save
    
17.         .Close
    
18.       End With
    
19.     End If
    
20.     myName = Dir
    
21.   Loop
    
22.   Application.DisplayAlerts = True
    
23.   Application.ScreenUpdating = True
    
24. End Sub
    

复制代码

arrny20000

chxw68 发表于 2018-9-5 09:35
猜测着修改的，供参考。

谢谢大师，通过了，感谢感谢！