错误423 自动化操作时文件名或类名未找到

camel52

excelhome解决了我无数的难题，今天第一次发帖求救，这个问题实在查不到解决办法了，期待大神帮助小弟完成这项任务，不胜感激
先说下需求：要通过excel读取许多Word中的第二个表格中的几个单元格内的内容，excel中有一列的编号恰好是word文件的文件名&“检测报告”，已经通过代码实现了文件名查找，但是读取的时候报错432，然后office就弹出对话框，按出现的顺序截图如下：

1

2

3

4

代码如下：

Sub 按钮1_Click()
Dim wdapp As Object
Dim vv1, vv2, vv3 As String
Dim i As Integer
i = 1
'Set wdapp = GetObject(, "Word.Application")
Path = ThisWorkbook.Path
     For i = 1 To 4
   
        Filename = ActiveSheet.Range("E" & i) & "检测报告.doc"
            If Dir(Path & "\" & Filename) <> "" Then
                Set wdapp = GetObject(Path & "\" & Filename, "Word.Application")
            
                wdapp.Documents.Open (Path & "\" & Filename)
                wdapp.Visible = False
                vv1 = wdapp.ActiveDocument.Tables(2).cell(2, 3)
                vv2 = wdapp.ActiveDocument.Tables(2).cell(3, 3)
                vv3 = wdapp.ActiveDocument.Tables(2).cell(4, 3)
               
               
                ActiveSheet.Range("R" & i) = vv1
                ActiveSheet.Range("S" & i) = vv2
                ActiveSheet.Range("T" & i) = vv3
                wdapp.Close
             Else
            End If
     Next i
End Sub

vba.rar (19.74 KB, 下载次数: 2)

2015-8-28 20:43 上传

点击文件名下载附件

已经试过的方法：
1.删除C:\Program Files (x86)\Common Files\microsoft shared\OFFICE12\Office Setup Controller的内容
2.重新安装office
3.换别的电脑
4.vba增加了引用