使用 VBA 时偶尔会遇到运行时错误 \"-2146950355 (80080005)

Question

在一些用户的帮助下，我编译了一个宏，它从 excel 工作簿中获取某些值并将它们复制到 word 模板中。宏有时工作正常，但其他人，我收到错误 - “运行时错误 -2146950355 (80080005)：服务器执行失败”。我不确定为什么我有时会收到此错误，而其他错误则不会。附件是我的代码和错误和调试的屏幕截图。

Const FilesPath As String = "filespath"
Const FilesPathh As String = "filespathh"
Const FilesPathhh As String = "filespathhh"
Const TemplateFile As String = "tempa.docx"


Sub Letters()
    Dim wd As Word.Application, doc As Word.Document
    Dim NomCell As Range, ws As Worksheet
    Dim Result As Integer
    

    Set ws = ActiveSheet
    Set wd = New Word.Application
    wd.Visible = True
    

   Columns("H:H").Select
    Application.CutCopyMode = False
    Selection.Copy
    Columns("I:I").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
        
        
    Columns("I:I").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("J:J").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("H:H").Select
    Selection.TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo:= _
        Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "Last Name"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "First Name"
    Range("J1").Select
    ActiveCell.FormulaR1C1 = "Other"
    
    


For Each NomCell In ws.Range("A2", ws.Cells(Rows.Count, 1).End(xlUp)).Cells
        'open as read-only
        
        
        Set doc = wd.Documents.Open(FilesPath & TemplateFile, ReadOnly:=True)
        With NomCell.EntireRow
        
        doc.Bookmarks("date").Range.Text = Date
        doc.Bookmarks("name").Range.Text = .Columns("I").Value
        doc.Bookmarks("course").Range.Text = .Columns("A").Value
    .Columns("A").Select
    Selection.Replace What:="&", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:=":", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="/", Replacement:=" ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
        
               doc.SaveAs2 FilesPathh & .Columns("K").Value & " " & .Columns("A").Value & ".pdf", _
                                                   wdExportFormatPDF
               doc.Close False
            
        End With
    Next NomCell
    wd.Quit
    ActiveSheet.Cells.ClearContents
    Result = MsgBox("The letters have been created. Would you like to view them?", vbYesNo)
    If Result = vbYes Then
    Call Shell("explorer.exe " & FilesPathhh, vbNormalFocus)
    End If
End Sub

任何帮助将不胜感激。谢谢！

Answer 1

运行时错误-2146950355（80080005）：服务器执行失败

您可能会发现与 Error when you start many COM+ applications: Error code 80080005 -- server execution failed 文章中描述的完全相同的错误。

Considerations for server-side Automation of Office 文章陈述如下：

Microsoft Office 的所有当前版本都经过设计、测试和配置，可以作为最终用户产品在客户端工作站上运行。他们采用交互式桌面和用户配置文件。它们不提供满足设计为无人值守运行的服务器端组件的需要所必需的可重入性或安全性级别。

Microsoft 目前不推荐也不支持来自任何无人值守、非交互式客户端应用程序或组件（包括 ASP、ASP.NET、DCOM 和 NT 服务）的 Microsoft Office 应用程序自动化，因为 Office 可能表现出不稳定的行为和/或在此环境中运行 Office 时出现死锁。

如果您正在构建一个在服务器端上下文中运行的解决方案，您应该尝试使用已被安全用于无人值守执行的组件。或者，您应该尝试找到至少允许部分代码在客户端运行的替代方案。如果您使用来自服务器端解决方案的 Office 应用程序，该应用程序将缺少许多成功运行所必需的功能。此外，您将承担整体解决方案稳定性的风险。

如果您只处理开放的 XML 文档，请考虑使用 Open XML SDK。否则，您可以考虑使用任何专为服务器端执行而设计的第三方组件，例如 Aspose。

Answer 2

我有同样的问题，当我试图创建一个 word 应用程序对象时，总是会出现这个问题，而 Word 已经在运行。我通过尝试引用已经运行的 Word 实例解决了这个问题。只有当这个实例不可用时，我才会创建一个新实例。

请注意，我在代码中使用了后期绑定：

Dim wrdApp As Object

'Temporarily turn off error handling
On Error Resume Next

'Try to get a reference to an already running instance of Word
Set wrdApp = GetObject(, "Word.Application")

'If referencing to the running instance failed
If wrdApp Is Nothing Then
    'Create a new instance of Word
    Set wrdApp = CreateObject("Word.Application")
End If

'Turn error handling back on
On Error GoTo 0