crear tabla o exportar datos a excel

[@ries_00]

buenas después de tanto tiempo tengo una duda voy a ver si me puedo explicar bien..
este es un programa para tomar la lectura de los medidores de una ciudad ya tengo la base de datos y todo eso...lo que quiero es selecionar algunos datos de la base y exportarlos a excel...
me explico la base tiene varios campos y como (lectura, cliente, número de medidor, ciudad, etc)....el numero de medidor es el campo "único" con lo cual he hecho un botón buscar....por ejemplo:
pongo 0012356 y me sale la lectura, cliente, ciudad, etc...... mi problema es que quiero poner un boton agregar para que me vaya agregando a excel los medidores que yo he buscado, además de ponerle un otro campo en la cual voy a ingresar otros datos (por ej. la lectura hecha por mi)....o en su defecto hacerlo en una grilla..
espero que la explicación haya sido entendible..

[j2moncholi]

No se si sera exactamente lo que pides pero yo tengo algo parecido, espero que te sirva:

Set objExcel = New excel.Applicat ion             
Set xLibro = objExcel.Workb ooks.Open("ruta documento excel")   
With xLibro
With .Sheets(1)                                                 ' Hacemos referencia a la Hoja
 Do While Not .Cells(fila, 1) = ""   
If .Cells(fila, 1) = cliente Then
        dato1 = .Cells(fila, 2)
        dato2 = .Cells(fila, 3)
        etc
        Exit Sub
Else
        fila = fila + 1
End If
Loop
End With
End With

saludos

[ziBboh]

Que tal @ries_00, no se si ya te diste una vuelta por aqui.

Para ver este enlace Registrate o Inicia Sesion

http://foro.portalhacker.net/index.php/topic,11478.msg33645.html

Espero que te sirva, de igual manera si no, postea cual es la razón. Saludos.

[@ries_00]

Que tal @ries_00, no se si ya te diste una vuelta por aqui.

Para ver este enlace Registrate o Inicia Sesion

http://foro.portalhacker.net/index.php/topic,11478.msg33645.html

Espero que te sirva, de igual manera si no, postea cual es la razón. Saludos.

gracias si me sirvio de mucho pero ahorita tengo un problemita para buscar en dos campos directos los campos son ruta-secuencia (son solo numeros),  en un text1 ingreso dos datos por ej: "54,25" donde 54 es la ruta y 25 es la secuencia para separar las palabras hice lo siguiente:

a = InStr(1, Text1, ",")
x = Mid(Text1, 1, a - 1)
y = Mid(Text1, a + 1, Len(Text1) - a + 1)

eso esta bien creo yo.....lo que

para buscar en un solo campo lo pongo asi:

Adodc1.RecordS ource = "SELECT * FROM Hoja2 WHERE MEDIDOR LIKE '" & Text1 & "'"

pero para buscar en dos no se como, yo trate de hacer lo siguiente:

1 Adodc1.RecordS ource = "SELECT * FROM Hoja2 WHERE RUTA LIKE '" & x & "'"
2 Adodc1.RecordS ource = "SELECT * FROM Hoja2 WHERE SECUENCIA LIKE '" & y & "'"

en efecto me busca pero solo de un solo campo......lee la linea "1" y si lo busca pero cuando lee la "2" deshace lo hecho por la "1".....puede que haya secuencia 25 pero me cambia la ruta

cabe resaltar que los campos "ruta" y "secuencia" son unicos.....per o por decir en la ruta 54 puede haber seceuncia 25, 26, .....


ese es mi problemita de hacer que me encuentre por "ruta" y "secuencia" unidos..

ojala que me pude explicar bien.......... ..de antemano gracias..