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

我有一个VB6程序，它使用Excel应用程序填充数据。该程序在我的机器上运行，但当我在服务器上运行此程序时，会出现自动错误：

当我第二次在服务器上重新运行可执行文件时，它工作正常。这两台机器都有Excel 2003和Excel 2010

此行中出现错误：

Set xlApp = CreateObject("Excel.Application")

---

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

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