如何修复 VBA 中的“执行错误 429：ActiveX 无法创建对象”错误

Question

下面的这个 Excel 宏应该将所有 .Docx 转换为所选文件夹中的 .Pdf

这是为我提供错误代码 429 的代码行，但几个小时前，同一行代码还在工作。

Documents.Open (filePath & currFile) 'Error Code 429

这里是完整的宏代码

Sub ConvertDocxInDirToPDF()

Dim filePath As String
Dim currFile As String

filePath = ActiveWorkbook.Path & "\"
MsgBox filePath
currFile = Dir(filePath & "*.docx")

Do While currFile <> ""

    Documents.Open (filePath & currFile) 'Error Code 429

    Documents(currFile).ExportAsFixedFormat _
        OutputFileName:=filePath & Left(currFile, Len(currFile) - Len(".docx")) & ".pdf", _
        ExportFormat:=17
    Documents(currFile).Close

    currFile = Dir()

Loop

Application.ScreenUpdating = True

End Sub

有没有一种简单的方法可以使这个宏工作并修复这个错误。

最好的问候。

Answer 1

Documents.Open是Documents对象的一个​​方法，需要“MS Word对象库”才能起作用，而不是显式引用一个word对象：

这是什么意思？如果选中了Microsoft Word 1X.0 引用（VBE>Extras>Libraries），那么下面的代码可以正常工作：

Sub TestMe()

    Dim filePath As String
    filePath = ThisWorkbook.Path & "\"
    Dim currFile As String
    currFile = Dir(filePath & "*.docx")

    Dim wrdDoc As Object
    Documents.Open filePath & currFile

End Sub

如果“MS Word 对象库”没有被引用，那么通过后期绑定它仍然可以被引用到对象。 （后期绑定是CreateObject("Word.Application")）：

Sub TestMe()

    Dim filePath As String
    filePath = ThisWorkbook.Path & "\"
    Dim currFile As String
    currFile = Dir(filePath & "*.docx")

    Dim wrdApps As Object
    Set wrdApps = CreateObject("Word.Application")
    wrdApps.Documents.Open (filePath & currFile)

End Sub

如果需要，Documents.Open 可能会返回一个文档对象：

Sub TestMe()

    Dim filePath As String
    filePath = ThisWorkbook.Path & "\"
    Dim currFile As String
    currFile = Dir(filePath & "*.docx")

    Dim wrdApps As Object
    Set wrdApps = CreateObject("Word.Application")

    Dim wrdDoc As Object
    Set wrdDoc = wrdApps.Documents.Open(filePath & currFile)

End Sub

• Documentation