在WIN7上执行软件中的导出到EXCEL功能时提示异常：ActiveX部件不能创建对象

在WIN7下执行软件中的导出到EXCEL功能时提示错误：ActiveX部件不能创建对象
软件中有一导出到EXCEL文件的功能，在XP+OFFICE2003的环境下运行没有错误。

但在WIN7+OFFICE2003的环境下运行出现错误提示：ActiveX部件不能创建对象

此模块的程序源码为：

    Dim xlApp As New Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim xlQuery As Excel.QueryTable
    
    Set xlApp = CreateObject("Excel.Application")  ’ 执行到此处时出现错误提示：ActiveX部件不能创建对象
    Set xlBook = Nothing
    Set xlSheet = Nothing
    Set xlBook = xlApp.Workbooks().Add
    Set xlSheet = xlBook.Worksheets("sheet1")
    xlApp.Visible = True

请问如何解决这个问题？
------解决方案--------------------
应该是：工程－》引用 里面没有正确的引用对象
------解决方案--------------------
去掉对excel的引用，下面代码去掉类型指定
Dim xlApp  as object
Dim xlBook As  object
Dim xlSheet As  object
Dim xlQuery As  object
------解决方案--------------------
微软脑筋短路，居然office不兼容
------解决方案--------------------
嗯，是这样，我遇见过这个，这应该是与office2003冲突了， 一般你安装完office然后运行你的带有activex的vb就会出现这情况，我实施时候遇见过，解决办法也是从新卸载office然后再安装；  分析起来跟系统也有关系。   还会跟cad2004 \office2007起冲突。