Quisiera recuperar un valor de una celda
de excel y guardarlo en una variable desde access basic.
Nesesito como conectarme a la hoja de excel y recuperar el
valor a la variable

RESPONDE EVA E.
===============

Te pongo un ejemplo para hacer lo que pides:

     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

Espero te sirva, un saludo

--
Eva Etxebeste

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

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