vb启动 显示automation错误

以前都没有出现这问题，刚出现。“automation错误   定义的应用对象或程序错误”
原来程序能够调用
Set xlApp = CreateObject("Excel.Application")                      '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path + "\***.xls")  '打开存在的execl文件
xlApp.Visible = False
现在报错                                             
 怎么解决？    --------------------编程问答-------------------- 出错在哪行代码? --------------------编程问答-------------------- Set xlApp = CreateObject("Excel.Application")                      '创建EXCEL对象 
这一行
能告诉我为什么打开程序出现“automation错误  定义的应用对象或程序错误”？ 
--------------------编程问答-------------------- 有没有装office --------------------编程问答-------------------- 装了，以前也打开过，过了一段时间，出现“automation错误  定义的应用对象或程序错误”
打不开了 --------------------编程问答-------------------- 试试能不能引用。 --------------------编程问答-------------------- 能引用

补充：VB ,  基础类