GetObject(, "Excel.Application") 编译时提示：编译错误：必选参数 是什么原因？

[eieislsw]

Dim ExApp As Object
On Error Resume Next
Set ExApp = GetObject(, "Excel.Application")
编译到此处时，提示 GetObject 编译错误：必选参数。

[eieislsw]

引用 1 楼 Topc008 的回复:

没看出问题出在哪! Private Sub Form_Load() Dim obj As Object Set obj = GetObject(, "excel.application") Debug.Print obj.statusbar End Sub 安装excel了呗？

EXCEL2003安装了，同样的这段代码在我的其他几套程序中都没有问题。

[一如既往哈]

没看出问题出在哪!

Private Sub Form_Load()
    Dim obj  As Object
    Set obj = GetObject(, "excel.application")
    Debug.Print obj.statusbar
End Sub

安装excel了呗？

[eieislsw]

顶一下。顶一下。

[舉杯邀明月]

这是灵异事件…… GetObject() 函数的两个参数都是“可选的”， 一般来说，使用时按需要传递其中一个参数，是完全合法的。

[舉杯邀明月]

我怀疑楼主的代码中，　有一个自定义的 GetObject() ，或者引用的某个类库中有 GetObject() ， 它的参数形式跟VBA库中的 GetObject() 不一样，才造成这个问题。