VB 创建Excel对象失败解决方法

VB 创建Excel对象失败
    Dim VBExcel As New Excel.Application
    Set VBExcel = CreateObject("Excel.Application")  出现“实时错误‘429’  ActiveX 部件不能创建对象”。以前一直在inXP  office2003下使用,一直都很正常。现在换为Win7 Office2007后就出现了这个错误,网上也搜了,但一直没有解决问题。不知有那位老兄都解一下迷!!!
------解决方案--------------------
Dim VBExcel As New Excel.Application 就可以了,不需要后面的
  Set VBExcel = CreateObject("Excel.Application")
这两句一个意思
------解决方案--------------------
引用不对
------解决方案--------------------
Dim VBExcel As object
  Set VBExcel = CreateObject("Excel.Application")