vba - 在 Word 2016 for Mac 中创建对象 ("Excel.Application")

Question

我有 Word 2016 VBA 代码来读取 Excel 文档中的数据。

这适用于 Windows 平台(Windows 7 和 Windows 10)。

在 Mac 上，它在 CreateObject("Excel.Application") 指令上失败。

run-time error '-2146959355 (80080005)'
Automation error

这是 Office 2016 for Mac(目前使用版本 16.23)中的问题，还是我的“环境”和 Office 在我的 Mac 上的安装方式的问题？

在 Office 2016 for Mac 更新中，它曾经可以工作并停止工作。我不记得是哪个版本导致了这个问题。将近两年以来，我在每次 Office 更新时检查此代码，但它总是失败。
我尝试使用 Parallels Desktop 运行 Windows 10 虚拟机，在这个虚拟 Windows 环境中，代码有效。我需要“本地”运行它。

下面的代码重现了这个问题:

Sub MyTestOfCreateObject()
    Dim xlapp As Object
    Set xlapp = CreateObject("Excel.Application")
    xlapp.Visible = True
    xlapp.Quit
    Set xlapp = Nothing
End Sub

我尝试将 CreateObject("Excel.Application") 替换为设置 xlapp = New Excel.Application。我收到了同样的错误消息。

我希望 xlapp 被用作 Excel 对象。

Answer 1

在 Mac Word VBA 中进行大量试验和错误后，以下内容对我有用。我发现的一件重要事情是 CreateObject("Excel.Application") 返回一个 Excel.Workbook 对象而不是 Excel.Application 对象(和 GetObject(...) 做同样的事情)。这似乎与早期版本的 Excel for Mac 有所不同。另一个是启动行为有些不一致，所以我添加了延迟重试。

    Sub Test1()
        Dim objExcelWkbk As Object
    
        On Error Resume Next
        
        ' GetObject() and CreateObject() behave inconsistently... retry a few times
        Dim iRetry As Integer
        iRetry = 1
        Do While iRetry <= 3
            ' I also tried:
            '     Set objExcelWkbk = New Excel.Application
            ' Although this *will* launch Excel, it always gives an "Class does not support Automation or does not support expected interface" error
            
            ' If Excel is already open then assign to the variable
            ' For Excel, an Excel.Application.Workbook object is returned when successful (rather than Excel.Application)
            Set objExcelWkbk = GetObject(, "Excel.Application")
            CheckAndReportError ("Try#" & iRetry & " (A) GetObject()")
            Wait 2
            If Not objExcelWkbk Is Nothing Then
                Exit Do
            End If
            
            ' If Excel was not previously open then object variable will be empty
            ' so create the object
            Set objExcelWkbk = CreateObject("Excel.Application")
            CheckAndReportError ("Try#" & iRetry & " (B) CreateObject()")
            Wait 2
            If Not objExcelWkbk Is Nothing Then
                Exit Do
            End If
            
            iRetry = iRetry + 1
        Loop
        Err.Clear
        
        If objExcelWkbk Is Nothing Then
            Debug.Print "Failed to create Excel object"
        Else
            Debug.Print "Excel version " & objExcelWkbk.Application.Version & "; OS " & objExcelWkbk.Application.OperatingSystem
            CheckAndReportError ("(C) objExcelWkbk.Application.Version")
            objExcelWkbk.Application.Quit
            CheckAndReportError ("(D) objExcelWkbk.Application.Quit()")
        End If
        
        Set objExcelWkbk = Nothing
    End Sub
    
    Sub CheckAndReportError(Label As String)
        If Err.Number = 0 Then
            Debug.Print Label & " no error"
            Exit Sub
        End If
        Debug.Print Label & " error #" & Err.Number & ": " & Err.Description
        Err.Clear
    End Sub
    
    Sub Wait(ByVal Seconds As Single)
        Dim CurrentTimer As Variant
        WaitUntil = Timer + Seconds
        Do While Timer < WaitUntil
            DoEvents
        Loop
    End Sub