Dim oXLS As Object
     Dim oHoja As Worksheet

     ' se está ejecutando excel ?
     On Error Resume Next
     Set oXLS = GetObject(, "excel.application")
     If Err.Number <> 0 Then
        Err.Clear
        Set oXLS = CreateObject("excel.application")
     End If
     On Error GoTo error_1

     ' abrir el libro y cargar la hoja, en mi caso se llama RESUMEN. El
 nombre de la hoja Excell está en strArch
     oXLS.Workbooks.Open strArch
     Set oHoja = oXLS.ActiveWorkbook.Worksheets("RESUMEN")

     ' Para leer el valor de una celda en particular
     ' Para asignar un valor a la celda, haces lo mismo pero al revés :)
     ValorCelda = oHoja.Cells(, ).Value

     ' La cerramos, podemos elegir salvar o no salvar cambios

     oXLS.ActiveWorkbook.Close savechanges:=False

 error_1:
     DoCmd.Hourglass False
     MsgBox "(" & Err.Number & ") " & sArch & vbCrLf & vbCrLf &
 Err.Description, vbCritical
     On Error Resume Next
     oXLS.ActiveWorkbook.Close savechanges:=False
     Set oXLS = Nothing
     Exit Sub
 End Sub

Un saludo
-- 
Eva Etxebeste
[MS MVP]

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)