之前使用正常的按表替换的宏报自动化错误

wanderary

之前一直使用正常的按表替换的宏今天在不同的电脑上都出了问题
http://club.excelhome.net/forum. ... 5&page=1#pid6677641

已添加引用
求指点，感谢

1. Sub 按表替换()
   
2. '首先引用ms excel
   
3. '运行前关闭所有excel程序
   
4. Dim ex As Excel.Application, boo As Excel.Workbook, shee As Worksheet, i As Integer
   
5. Set ex = New Excel.Application
   
6. Set boo = ex.Workbooks.Open("d:\r.xlsx")    '假如在桌面
   
7.     ex.Visible = False    '设置EXCEL对象可见（或不可见）
   
8.     Set shee = boo.Worksheets(1)    '设置活动工作表
   
9. With shee
   
10. For i = 1 To .Range("b65536").End(xlUp).Row
    
11. ActiveDocument.Content.Find.Execute findtext:=.Range("a" & i), replacewith:=.Range("b" & i), Replace:=wdReplaceAll, Forward:=True '将excelA列替换为B列内容
    
12. Next
    
13. End With
    
14. boo.Close
    
15. ex.Quit
    
16. Set boo = Nothing
    
17. Set ex = Nothing
    
18. End Sub
    

复制代码

daibao88

excel版本在2007以上，首先引用ms excel ，运行前关闭所有excel程序,确保d盘根目录下有r.xlsx文件

daibao88

VBA代码本身没问题

wanderary

daibao88 发表于 2019-12-19 21:38
VBA代码本身没问题

感谢回复
我后来在虚拟机里的 win7 上测试也是正常
不过在 win10 上一直报自动化错误
在另一个 win7 上会导致 excel 重启，还是没有发现原因