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")