Ver Mensaje Individual
  #2 (permalink)  
Antiguo 12/12/2008, 03:23
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses
Puntos: 37
Respuesta: De Acces a Excel

Cita:
Iniciado por erDanielillo Ver Mensaje
Hola aver si me podriais ayudar... Tengo un formulario en Access con dos cuadro de texto nombre y apellido y un boton buscar...Lo q quiero es q al darle al boton buscar me busque el nombre y apellido puesto en los cuadro de texto, en hojas de calculo Excel que se encuentran en una carpeta... no se ni si es posible..
Muxas gracias y un saludo
Hola, un libro Excel, mediante ADO, lo puedes tratar como una base de datos y las hojas como tablas.

En este ejemplo seleccionamos nombre y apellidos y mostramos los datos en un DataGrid (La hoja excel no se muestra).

Código:
Private Sub cmdBuscar_Click()
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
con.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
        App.Path & "\Libro1.xls;Extended Properties='Excel 8.0;HDR=Yes'"
con.CursorLocation = adUseClient
rst.Open "Select * From [Hoja1$] Where Nombre = '" & Text1 & "' AND Apellidos = '" & Text3 & "'", con
If rst.RecordCount = 0 Then
    MsgBox "No existe."
    Exit Sub
End If
Set DataGrid1.DataSource = rst
End Sub
Sustituye, si procede, lo marcado en rojo.

Nota: HDR=Yes indica que la hoja tiene encabezado (primera fila de datos, que sería el nombre de los campos). Si la hoja no tiene encabezado (HDR=No), los nombres de los campos serían F1, F2, F3.... con lo cual en la búsqueda:
Where F1 = '" & Text1 & "' And F2 =.....