Dim AppExcel As excel.Application 报错说用户定义类型未定义？

[chinawcs]

Public Function rstoexcel(rstable As ADODB.Recordset, cexcelname As String) As Boolean '06-04-13wcs导出数据到excel


On Error GoTo gherr
Dim icol As Integer '列数，用于保存字段个数
Dim ijlts As Long '记录条数
Dim yesorno As Long '确认或是取消的标志



Dim AppExcel As excel.Application '定义
Dim BookExcel As excel.Workbook '工作簿对象
Dim sheetexcel As excel.Worksheet '工作表
我用了个函数 导出纪录集到excel文件，可报错。需要引用什么吗？

[fxy_2002]

要引用 microsoft excel object library ....

[chinawcs]

在部件里引用吗？我找了怎么没有该项呢？还是再代码里写些什么？
大哥请明示呀！！
一下午了55555

[of123]

菜单：工程—引用，在对话框中找到对象库，勾选，确定。

[chinawcs]

问题解决 结贴
感谢of123()

[coralsoft]

除非没有安装excel，要不然，在“工程”菜单的“引用”里，选择

microsoft excel 11 object library 就可以了。
也可能是10、9或8的版本，就看你装的excel了。