Excel VB6中的GetObject函数在Windows7中抛出错误号429

我正在将数据从应用程序导出到excel。为此，我检查是否有任何excel窗口处于打开状态，然后创建excel应用程序对象。就像下面提到的

lHwnd = FindWindow("XLMain", vbNullString)

 If lHwnd = 0 Then
      \\create new application
      Set GetExcelApp = GetObject("", "Excel.Application")
  Else
      \\get existing application
      Set GetExcelApp = GetObject(, "Excel.Application")
 End If 

但是，如果任何excel窗口已经打开，则此代码将抛出错误429。在windows Xp中，此代码在所有情况下都可以正常工作，但在windows 7中，它在运行exe时抛出错误429。

---

我怎样才能解决这个问题。请注意..

错误429-ActiveX组件无法创建对象意味着Excel.Application对象未在Windows 7计算机上注册。这可能是因为Excel未安装或安装不正确。我会进入控制面板=>ProgramsandFeatures，选择MicrosoftExcelXX.0或OfficeXX.0并选择Change。选择修复选项。

如果您有64位Office，您将无法从32位VB6自动执行。没有32位Office 2007Hi标记。。Office 2007已正确安装。我得到了一些信息，但没用。这很有趣——我从来不知道。但作为一种优化，这是有意义的。顺便说一句，我认为这一行被执行了：setgetExcelApp=GetObject（，“Excel.Application”）是的。我在执行这一行时收到了错误。设置GetExcelApp=GetObject（，“Excel.Application”）