Interactuar con excel

05/07/2003 - 00:11 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
05/07/2003 - 00:31 | 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:

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]

A partir de mañana, de vacaciones. :-)

Preguntas similares