[已解决]批量替换工作簿内容（含替换子目录文件内容）

guogongyi

这个是网友帮忙做很好用，我想改一下，请高手帮忙改一下：
1.现在能替换当前目录下的文件内容，我想能不能将当前目录下子目录下文件一起替换。谢谢

最佳答案

月排行榜 / 总排行榜

dsmch

2014-10-9 23:41

………………

跳转到最佳答案楼层

dsmch

1. Dim arr
   
2. Sub Macro1()
   
3. arr = Range("a3").CurrentRegion
   
4. zdir ThisWorkbook.Path & ""
   
5. End Sub
   
6. Sub zdir(p)
   
7. Dim fs As New FileSystemObject, wb As Workbook
   
8. Application.ScreenUpdating = False
   
9. Application.DisplayAlerts = False
   
10. For Each f In fs.GetFolder(p).Files
    
11.     If f <> ThisWorkbook.FullName Then
    
12.         Set wb = GetObject(f)
    
13.         For i = 1 To wb.Sheets.Count
    
14.             For j = 1 To UBound(arr)
    
15.                 wb.Sheets(i).UsedRange.Replace arr(j, 1), arr(j, 2)
    
16.             Next
    
17.         Next
    
18.         Application.Windows(wb.Name).Visible = True
    
19.         wb.Close 1
    
20.     End If
    
21. Next
    
22. For Each m In fs.GetFolder(p).SubFolders
    
23.     zdir m
    
24. Next
    
25. Application.DisplayAlerts = True
    
26. Application.ScreenUpdating = True
    
27. End Sub

复制代码

dsmch

………………

guogongyi

dsmch 发表于 2014-10-9 23:41
………………

老师辛苦了，子目录下的文件内容不能替换啊，看看老师再试一下。

guogongyi

guogongyi 发表于 2014-10-10 05:59
老师辛苦了，子目录下的文件内容不能替换啊，看看老师再试一下。

子目录下的文件内容不能替换啊

guogongyi

guogongyi 发表于 2014-10-10 10:08
子目录下的文件内容不能替换啊

我重新下载后解压，还是不能替换子目录下的文件内容，老师，怎么了？

guogongyi

guogongyi 发表于 2014-10-10 17:48
我重新下载后解压，还是不能替换子目录下的文件内容，老师，怎么了？

我现在用的是2010有关？

guogongyi

guogongyi 发表于 2014-10-10 20:40
我现在用的是2010有关？

而且，运行以后还不能停下来，只能用ESC键强行让程序停下来。其实你做的这个程序已经很好了。真的。

guogongyi

我试一下，在2003上运行正常。为什么？