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