Visual Basic para Aplicaciones - Consulta en Microsoft Excel

Life is soft - evento anual de software empresarial
   
Vista:

Consulta en Microsoft Excel

Publicado por José Raúl (7 intervenciones) el 19/12/2007 16:48:56
Buenas, tengo una base de datos en Microsoft Excel y necesito generar diferentes consultas por diversos temas, pero que a su vez me genere un reporte, estoy pensando utilizar MS Query para el efecto o bien SQL pero no se como utilizarlo desde VBA (visual basic for aplication) en Excel.

Gracias por su colaboración un abrazo y feliz navidad.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Consulta en Microsoft Excel

Publicado por JuanC (243 intervenciones) el 19/12/2007 23:16:04
en VBA debes usar Microsoft ActiveX Data Objects 2.0 Library (Herramientas>>Referencias)

te dejo un ejemplo básico para darte una idea...

Sub Test()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sSQL$, A$, B$

[C:C].Clear

On Error GoTo ErrHandler
With con
.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ActiveWorkbook.FullName & ";" & _
"Extended Properties=Excel 8.0;"
End With

sSQL = "SELECT * " & _
"FROM " & A & ", " & B & _
"WHERE " & Trim(A) & ".aa = " & Trim(B) & ".bb"

rs.Open sSQL, con, adOpenStatic

With rs
'If Not .EOF And Not .BOF Then .MoveFirst
'Do Until .EOF
' MsgBox .Fields(0)
' .MoveNext
'Loop
[C1] = "C"
[C2].CopyFromRecordset rs 'Guarda el resultado

.Close
End With

con.Close

fin:
Set rs = Nothing
Set con = Nothing
Exit Sub

ErrHandler:
MsgBox Err.Description, vbCritical + vbOKOnly, "Error"
Err.Clear
Resume fin
End Sub

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar