[已解决]在下列代码中加入能搜索替换目录下的子文件中的文件（包含子文件-子文件-子文件）

承诺与谁

Private Sub CommandButton1_Click()

Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
Application.ScreenUpdating = False        '冻结屏幕，以防屏幕抖动
myPath = ThisWorkbook.Path & "\"          '把文件路径定义给变量
myFile = Dir(myPath & "*.xls")            '依次找寻指定路径中的*.xls文件
Do While myFile <> ""                     '当指定路径中有文件时进行循环
    If myFile <> ThisWorkbook.Name Then
        Set AK = Workbooks.Open(myPath & myFile)          '打开符合要求的文件
        m = ActiveSheet.UsedRange.Rows.Count
        n = ActiveSheet.UsedRange.Columns.Count
        AK.ActiveSheet.Range("A1").Resize(m, n).Replace What:="A", Replacement:="b", LookAt:=xlPart, MatchCase:=False, MatchByte:=False
        AK.ActiveSheet.Range("A1").Resize(m, n).Replace What:="s", Replacement:="d", LookAt:=xlPart, MatchCase:=False, MatchByte:=False
        AK.ActiveSheet.Range("A1").Resize(m, n).Replace What:="f", Replacement:="g", LookAt:=xlPart, MatchCase:=False, MatchByte:=False
        Workbooks(myFile).Close savechanges:=True               '关闭源工作簿
    End If
    myFile = Dir                                   '找寻下一个*.xls文件
Loop
Application.ScreenUpdating = True                 '冻结屏幕,此类语句一般成对使用
MsgBox "替换完成，请查看！", 64, "提示"
End Sub

最佳答案

月排行榜 / 总排行榜

chart888

2017-6-19 15:04

承诺与谁 发表于 2017-6-19 14:20
大神，通过修改代码。不知道哪里还是不对？    我把实际情况的表格及代码已经上传附件。麻烦大神改改改   ...

解压后不要放在需要替换的文件夹内
点击按钮
选择需要进行替换的文件夹

跳转到最佳答案楼层

chart888

你上传个附件
方便点

承诺与谁

chart888 发表于 2017-6-19 09:10
你上传个附件
方便点

附件已经上传了    谢谢大神

chart888

承诺与谁 发表于 2017-6-19 11:00
附件已经上传了    谢谢大神

见附件

承诺与谁

chart888 发表于 2017-6-19 13:55
见附件

大神，通过修改代码。不知道哪里还是不对？    我把实际情况的表格及代码已经上传附件。麻烦大神改改改     十分感谢
要子文件下的.XLS文件都能修改。不是要获取文件名字（或路径）

chart888

承诺与谁 发表于 2017-6-19 14:20
大神，通过修改代码。不知道哪里还是不对？    我把实际情况的表格及代码已经上传附件。麻烦大神改改改   ...

解压后不要放在需要替换的文件夹内
点击按钮
选择需要进行替换的文件夹

承诺与谁

chart888 发表于 2017-6-19 15:04
解压后不要放在需要替换的文件夹内
点击按钮
选择需要进行替换的文件夹

大神，没有锁定工作表的区域。我需要锁定一下区域的。  有些工作表日期有两个。只能改一个。   我加了   Range("a10:z25").Select  代码。但是没有用。还请大神指点一下

chart888

承诺与谁 发表于 2017-6-19 16:27
大神，没有锁定工作表的区域。我需要锁定一下区域的。  有些工作表日期有两个。只能改一个。   我加了    ...

见附件