[求助]导出Excel 提示用户定义类型未定义是什么原因，请指点阿

ry200w 发布于 2007-07-31 21:17， 1164 次点击

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

编译错误提示用户定义类型未定义

什么原因，请高手指点阿

2 回复

川流不息2007-07-31 23:53

是不是没有导入这个东西？

cd0070082017-03-17 16:07

刚刚出了一个跟你一样的问题，首先需要在工程-引用里面引用一个东西
：你的VB工程要引用“Microsoft Excel xx.x Object Library”才行。

或者不引用，而改成下面这样也行：

Dim objXLApp As Object

下面那个objWorkBook也要改为：

Dim objWorkBook As Object

Set objWorkBook = CreateObject("Excel.WorkBook")

[求助]导出Excel 提示用户定义类型未定义 是什么原因，请指点阿

[求助]导出Excel 提示用户定义类型未定义是什么原因，请指点阿