(hola foro!!) Interactuar con excel

12/07/2003 - 21:17 por horacio | Informe spam
Alguien me puede ayudar con esta rutina en VB6???
El código siguiente funciona bien en windows 98, 2000,
pero no en windows 95 (en tiempo diseño y compilado), me
indica un error que comento en la línea correspondiente.
La llamada a la API parece correcta, el objeto es creado
pero el error aparece para las propiedades Protect,
Unprotect and Range.
Desde ya muchas gracias.

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook

Set xlBook = CreateObject
("c:\car\consulta\dbcar\datos2.xls")
'el objeto es creado

xlBook.Worksheets(1).Unprotect Pass
'error -2147023067(80070725) run time execution
'automation error

Array2 = xlBook.Worksheets(1).Range("A1").CurrentRegion
'error -2147023067(80070725) run time execution
'automation error

xlBook.Worksheets(1).Protect Pass
'error -2147023067(80070725) run time execution
'automation error
 

Leer las respuestas

#1 Softjaen
12/07/2003 - 23:19 | Informe spam
horacio" escribió:

El código siguiente funciona bien en windows 98, 2000,
pero no en windows 95 (en tiempo diseño y compilado)...



Hola, Horacio:

Te respondo con lo mismo que te dije el pasado día 5 de julio:

El equipo con Windows 95, ¿tiene instalada la aplicación Microsoft Excel?

Prueba a ejecutar lo siguiente:

Dim objExcel As Object

Set objExcel = CreateObject("Excel.Application")

Si te da el error 429, significa que el equipo no tiene instalada la
biblioteca ActiveX de Excel, o no está debidamente registrada en el sistema.

Un saludo.

Enrique Martínez
[MS MVP - VB]

Preguntas similares