输出到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

没有引用Excel

行云

如何引用