Usuario
Abrir hoja Excel 2010

Debate general
-
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 esDim 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 errIf oExcel Is Nothing Then
Set oExcel = New Excel.Application
End IfIf oExcel Is Nothing Then
Mensaje "No se ha podido enlazar con Microsoft Excel.", critico, SoloOk ' <--- Sale por aquí
Exit Sub
End IfDim ExcelWrk As Excel.Workbook
' Aquí da el error :
Set ExcelWrk = oExcel.Application.Workbooks.Open(LbxFicheros.Text)¿Alguien sabe como solucionar esto?
Gracias