Abrir hoja Excel 2010

Question

Hola, tengo un código que abre una hoja Excel y funciona bien pero da error 461 Activex component can´t create object  con Excel 2010 Hogar y pequeña oficina.
El código es

Dim oExcel As Object
On Error Resume Next
Set oExcel = GetObject(, "Excel.Application")
If oExcel Is Nothing Then ' error 429 occured but code excecution
   Set oExcel = CreateObject("Excel.Application")
End If
On Error GoTo err

If oExcel Is Nothing Then
   Set oExcel = New Excel.Application
End If

If oExcel Is Nothing Then
   Mensaje "No se ha podido enlazar con Microsoft Excel.", critico, SoloOk   ' <--- Sale por aquí
   Exit Sub
End If

Dim ExcelWrk As Excel.Workbook
' Aquí da el error :
Set ExcelWrk = oExcel.Application.Workbooks.Open(LbxFicheros.Text)

 ¿Alguien sabe como solucionar esto?

 

Gracias

Answer 1

¿Qué deseas hacer? ¿Abrir un libro existente o crear uno?

Answer 2

Abrir uno existente que se creó bajo Excel 2010 Hogar y Pequeña Empresa.

Answer 3

Lo mas probable es que no son compatibles.

Answer 4

Hola Luis, ¿no son compatibles? ¿eso significa que no puedo abrir una hoja Excel creada con esa versión de Office y trabajar con su contenido?

Answer 5

proba a poner de referencia directamente el objeto excel a ver si te lo deja usar,porque asi lo estas abriendo con un get object generico.

tendrias que hacer algo como dim excelapp as new excel.application

Answer 6

Ya lo probé y ocurre lo mismo.

Answer 7

Proba a grabarlo como excel 2000/2003 desde el excel home a ver si asi lo abre.

Si asi es es problema de compatibilidad.