vba - 将早期绑定(bind)代码转换为后期绑定(bind)

Question

我经常在 VBA 和 VB6 中编写早期绑定(bind)代码来自动化办公应用程序(Word、Excel 等)，然后将其切换到后期绑定(bind)以处理这些应用程序的多个版本。我正在尝试做同样的事情，但我正在自动化 ESRI ArcMap GIS 应用程序，而我过去使用的概念似乎没有翻译。

---

以下代码运行正确:

Sub EarlyBinding()
Dim ArcMap As esriArcMapUI.MxDocument

    Set ArcMap = GetObject("C:\Users\Mike\Downloads\Assessment Mapping.mxd", _
                           "esriArcMapUI.MxDocument")
    Debug.Print ArcMap.Title
End Sub

---

但是此代码失败，并在 Debug.Print 行显示 Object 不支持此属性或方法:

Sub LateBinding()
Dim ArcMap As Object

    Set ArcMap = GetObject("C:\Users\Mike\Downloads\Assessment Mapping.mxd", _
                           "esriArcMapUI.MxDocument")
    Debug.Print ArcMap.Title

End Sub

MS Office 应用程序有什么特别之处吗？它们通常比 COM 服务器更好地支持这种方法？或者 ESRI 应用程序有什么特殊之处，他们不支持这种方法？

Answer 1

很可能 Esri 对象未正确支持 IDISPATCH。您可以尝试 CALLBYNAME，但我猜这也行不通，因为我相信它也通过 IDispatch 进行引导。