VB 6中的GetObject函数在Windows 7中抛出错误号429

Question

我将数据从我的应用程序导出到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时抛出Error 429。 我怎么能解决这个问题。请指教..

Answer 1

错误429 - ActiveX组件无法创建对象意味着Excel.Application对象未在Windows 7计算机上注册。这可能是因为未安装或未正确安装Excel。我将转到控制面板=＆gt;程序和功能，选择Microsoft Excel xx.0或Office xx.0并选择更改。选择修复选项。