excel - 如何修复 VBA 中的 "Execution Error 429 : ActiveX can' t 创建对象”错误

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 对象库”，那么通过后期绑定(bind)，它仍然可以引用到该对象。 (后期绑定(bind)是 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