Abrir excel desde Visual Basic - Error

[Marea2]

Hola a todos.

Tengo Visual Basic 6 y mi duda es la siguiente:


En el siguiente trozo de programa, aparecen en alguna ocasiones los errores que pongo a continuación.
Esto sólo ocurre en algunos equipos y no logro saber el proque ya que en mi equipo de desarrollo y en
otros muchos funciona perfectamente.
Agradecería si alguien puede ayudarme.



Error 13 No coinciden los tipos - Línea 1850

Error 50290 Method `~` of object `~` failed - Línea 1870

Error -2147023170 Automation error - Línea 1930



Dim xlTmp As Excel.Application
1850 Set xlTmp = CreateObject("Excel.Application")
1860 Set xlTmp = New Excel.Application
1870 xlTmp.Application.WindowState = xlNormal
1880 xlTmp.Visible = False
'
1900 If ExelVersion < "12" Then ' Si la versión de Excel es anterior a 2007
1910 xlTmp.Workbooks.Open Ruta & "\Excel1.xls"
1920 Else
1930 xlTmp.Workbooks.Open Ruta & "\Excel2.xlsm"
1940 End If



Espero que puedan ayudarme. Muchas gracias.

[David]

Es que estás creando dos objetos Excel, coloca solo una. Así:

Código PHP:

  Dim xlTmp As Object
1850  Set xlTmp = CreateObject("Excel.Application")
1870  xlTmp.Application.WindowState = xlNormal 
1880  xlTmp.Visible = False  
   

Y no olvides liberar el objeto después de usarlo:

Código PHP:

  Set xlTmp = Nothing  
   

[Marea2]

Muchas gracias David.
Me has solventado un problema muy grande.