VB6上的自动化错误-“找不到指定的模块”- 2147024770

Question

我有一个VB6程序，它使用Excel应用程序来填充数据。这个程序可以在我的机器上运行，但当我在服务器上运行这个程序时，我得到了自动化错误：

​

​

当我第二次重新运行服务器中的可执行文件时，它工作正常。这两台机器都有Excel2003和Excel2010。

此行出现错误：

Set xlApp = CreateObject("Excel.Application")

Answer 1

真奇怪。但您可以尝试创建对象两次...

On Error Resume Next
Set xlApp = CreateObject("Excel.Application")
On Error Goto 0

If xlApp is Nothing Then
  Set xlApp = CreateObject("Excel.Application")
End If