none
Abrir hoja Excel 2010 RRS feed

  • 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 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

    martes, 2 de noviembre de 2010 11:44

Todas las respuestas