[已解决]批量替换所有工作簿中的几个内容

guogongyi

一个目录下有多个工作簿，要批量替换所有工作簿中的几个内容。如吉林替换为辽宁；延吉人民替换为蛟河等等。谢谢

最佳答案

月排行榜 / 总排行榜

dsmch

2014-10-7 09:55

………………

跳转到最佳答案楼层

qh8600

遍历啊，类似的东西网上好多的

guogongyi

还得要大师帮忙啊

guogongyi

大师们，帮帮忙了。

dsmch

1. Sub Macro1()
   
2. Dim mypath$, wj$, arr, wb As Workbook
   
3. mypath = ThisWorkbook.Path & ""
   
4. Application.ScreenUpdating = False
   
5. Application.DisplayAlerts = False
   
6. arr = Range("a3").CurrentRegion
   
7. wj = Dir(mypath & wj)
   
8. Do While wj <> ""
   
9.     If wj <> ThisWorkbook.Name Then
   
10.         Set wb = GetObject(mypath & wj)
    
11.         For i = 1 To wb.Sheets.Count
    
12.             For j = 1 To UBound(arr)
    
13.                 wb.Sheets(i).UsedRange.Replace arr(j, 1), arr(j, 2)
    
14.             Next
    
15.         Next
    
16.         Application.Windows(wb.Name).Visible = True
    
17.         wb.Close 1
    
18.     End If
    
19.     wj = Dir
    
20. Loop
    
21. Application.DisplayAlerts = True
    
22. Application.ScreenUpdating = True
    
23. End Sub

复制代码

dsmch

………………

guogongyi

dsmch 发表于 2014-10-7 09:55
………………

您的达到了我的要求，但为什么不能停止程序运行啊。

guogongyi

我用的2010有关系吗？