一个关于VB中应用EXCEL的小问题

我已经在工程中引用Excel 9.0了，为什么运行时会出现“Active X部件不能创建对象”，我是不是少了什么东西
Public xlApp     As Excel.Application     'Excel应用对象
Public xlBook     As Excel.Workbook       'Excel工作薄对象
Public xlSheet     As Excel.Worksheet     'Excel表格对象Set xlApp = CreateObject("Excel.Application ")
Set xlBook = xlApp.Workbooks.Open("d:\1.xls ")              '打开(MyExcel.xls先已存在）
Set xlSheet = xlBook.Worksheets("sheet1 ")          '选定表'在指定的座标格中写数据
xlSheet.Cells(2, 8) = 1         '表格坐标可按你要求定
xlSheet.Cells(3, 8) = 2
xlSheet.Cells(5, 9) = 3'关闭EXCEL应用
xlBook.Close 0
xlApp.Quit
Set xlApp = Nothing