Office中国论坛/Access中国论坛

标题: 输出到Excel报错 [打印本页]

作者: 行云 时间: 2006-7-8 19:34
标题: 输出到Excel报错
Dim xlApp As Excel.Application
Dim xlBook As Workbook, xlSheet As Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\report\分户帐.XLS")  '打开要输出的EXECL文件
Set xlSheet = xlBook.Worksheets(1)             '打开工作表,这里是第一个,可以设其他
xlApp.Visible = True                            '显示

错误提示：

编译错误

找不到工程或库

错误指向：xlApp As Excel.Application

如何解决？

作者: fan0217 时间: 2006-7-8 19:36
没有引用Excel

作者: 行云 时间: 2006-7-8 22:05
如何引用

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)