使用Excel 2016打开Visio文件'；行不通

我有一个打开visio文件的小Excel宏。使用Excel 2010，一切正常。现在我已经安装了Office 2016，并尝试了相同的excel宏，但它无法工作

没有例外，但我看到我的变量“VisioDoc”是空的

你知道问题出在哪里吗

Sub cmdChooseFile_Click()

'...do something

Set VisioDoc = openDocument(filepath)
   If VisioDoc Is Nothing Then
      MsgBox "boom, didn't work!", vbExclamation
      Exit Sub
   End If
End Sub

Private Function openDocument(docPath As String) As Visio.Document
    visioOpened = True
    Application.StatusBar = "Lade Visiodokument..."
    On Error Resume Next

    Set VisioApp = GetObject(, "Visio.Application")

    If VisioApp Is Nothing Then
        Set VisioApp = CreateObject("Visio.Application")
        VisioApp.Visible = False
        visioOpened = False
    End If

    Set openDocument = VisioApp.Documents.Open(docPath)
    Application.StatusBar = False
End Function

---

错误恢复下一行正在抑制错误消息。正在尝试删除它并再次运行。现在，您应该有一条描述问题的错误消息。另外，您在这里针对的是什么版本的Visio？如果我删除“下一步错误恢复”，则会出现运行时错误429：“对象创建失败”。我已使用Excel 32和64位不同的语言包测试了代码，但仍然无法运行。有什么想法吗？恐怕没有答案，但这表明Excel 2016到Visio 2016的记录可能会有问题，但效果不错。