运行时错误‘48’，加载dll错误

hkg36

有一段代码，几个月前还能运行得，现在提示：运行时错误‘48’，加载dll错误
Sub Macro1()
Dim mypath$, wj$, wd As New Word.Application
mypath = ThisWorkbook.Path & "\"
wj = Dir(mypath & "*.doc")
s = 1
Do While wj <> ""
    With wd.Documents.Open(mypath & wj)
        h = .Tables(2).Rows.Count
        l = .Tables(2).Columns.Count
        For i = 2 To h
            s = s + 1
            Cells(s, 1) = s - 1
            For j = 2 To l
                Cells(s, j) = Application.Clean(.Tables(2).Cell(i, j).Range)
            Next
            Cells(s, l + 1) = Application.Clean(.Tables(1).Cell(4, 4).Range)
            Cells(s, l + 2) = Application.Clean(.Tables(1).Cell(7, 2).Range)
            Cells(s, l + 3) = Application.Clean(.Tables(1).Cell(4, 6).Range)
        Next
        .Close False
    End With
    wj = Dir
Loop
wd.Quit
Columns.AutoFit
End Sub

t13564865256

wd As New Word.Application
要引用DLL控件。

182197315

我也遇到过同样的问题，代码如下：Sub 汇总()      Wordapp As Word.Application     Dim WordD As Word.Document     Dim cPath$, cFile$, m%, Arr(1 To 1000, 1 To 6)     cPath = ThisWorkbook.Path & "\"     Set Wordapp = New Word.Application     cFile = Dir(cPath & "*.doc")     Do While cFile <> ""         Set WordD = Wordapp.Documents.Open(cPath & cFile)         m = m + 1         With WordD.Tables(1)             Arr(m, 1) = Replace(.Cell(2, 2).Range.Text, Chr(7), "")             Arr(m, 2) = Replace(.Cell(1, 2).Range.Text, Chr(7), "")             Arr(m, 3) = Replace(.Cell(3, 2).Range.Text, Chr(7), "")             Arr(m, 4) = Replace(.Cell(6, 2).Range.Text, Chr(7), "")             Arr(m, 5) = DateValue(Replace(.Cell(4, 4).Range.Text, Chr(7), ""))             Arr(m, 6) = DateValue(Replace(.Cell(5, 4).Range.Text, Chr(7), ""))         End With         WordD.Close         cFile = Dir     Loop     Set WordD = Nothing     Wordapp.Quit     Me.Range("a65536").End(xlUp)(2).Resize(m, 6).Value = Arr End Sub

182197315

网上找了好久都没找到解决办法，可以试下重装office或下载注册dll

hkg36

t13564865256 发表于 2015-10-22 17:05
wd As New Word.Application
要引用DLL控件。

引用哪个DLL控件呢？

硅谷少年

Dim mypath$, wj$, wd As New Word.Application 去掉 As New Word.Application ，我就是这么搞定的。奇葩的office2013，变量不定义类型（甚至不定义变量）反而不出错。