[求助]导出Excel 提示用户定义类型未定义 是什么原因，请指点阿
Sub GetExcel()
'使用这段代码，可以打开一个Excel实例或者引用已经打开的Excel实例
Const ERR_APP_NOTRUNNING As Long = 429
On Error Resume Next
Set MyXL = GetObject(, "Excel.Application")
If Err = ERR_APP_NOTRUNNING Then
Set MyXL = New Excel.Application
End If
MyXL.Application.Visible = True
End Sub
编译错误 提示用户定义类型未定义
什么原因，请高手指点阿
