Traer datos de 3 tablas de access a hoja excel

[GR77]

Saludos a todos:

Tengo 3 tablas en el archivo de access, de la tabla me gustaría traer los datos por un rango de fechas y que los ordenara de acuerdo al Id y fecha, de la tercera tabla seria sumar por mes y año de acuerdo a cada Id y clave,  de la segunda tabla es sumar por mes y año por cada Id.

Adjunto un pequeño ejemplo solo con los datos necesarios, ya que realmente tengo mas columnas en la tablas de access

Agradezco de antemano su apoyo y/o sugerencias

Saludos

datos.mdb Datos.xlsm

[Abraham Valencia]

Hola

Veo en tu archivo que hay un intento de cadena SQL ¿Sabes cómo funciona dicho lenguaje? Todo lo que preguntas se soluciona con dichas sentencias, pero para una mejor ayuda deberías hacer preguntas puntuales. 

[GR77]

Gracias avalencia por responder

No se mucho solo que he visto en los foros

Aún no he podido construir el bucle y la cadena sql para traer los datos

Saludos

[Mauricio_ODN]

Hola  @GR77

Te dejo una consulta como punto de partida, pero de la manera en que están construidas las tablas, por el momento trae registros duplicados, pero te dejo las consultas para que puedas ir conociendo el lenguaje.

Sigo atento y trabajando. Saludos.

Sub DatoAccess()
Dim cn, rs As Object, strFile, strCon, strSQL As String

DateI = Sheets(1).Cells(1, 11).Value
DateF = Sheets(1).Cells(2, 11).Value

strFile = ThisWorkbook.Path & "\datos.mdb"
'strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile & ";"
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & ";"
Set cn = CreateObject("ADODB.Connection")

cn.Open strCon
Set rs = CreateObject("ADODB.Recordset")

strSQL = "SELECT DISTINCT T1.Id, T1.Clave, T1.FechaMov, T1.MontoEsperado, T3.MontoPagado  " & _
         "FROM (Tabla1 T1 INNER JOIN Tabla3 T3 ON T1.Clave = T3.Clave)"

''strSQL = "SELECT T1.Id, T1.Clave, T1.FechaMov, T1.MontoEsperado, T3.MontoPagado " & _
         "FROM (Tabla1 T1 INNER JOIN Tabla3 T3 ON T1.Clave = T3.Clave)"
         
''strSQL = "SELECT T1.Id, T1.Clave, T1.FechaMov, T1.MontoEsperado, T3.MontoPagado, T2.MontoDescto " & _
         "FROM (Tabla1 T1 INNER JOIN Tabla3 T3 ON T1.Clave = T3.Clave) " & _
         "INNER JOIN Tabla2 T2 ON T1.Id = T2.Id "

''strSQL = "SELECT T1.Id, T1.Clave, T1.FechaMov, T1.MontoEsperado, T3.MontoPagado, T2.MontoDescto " & _
         "FROM (Tabla1 T1 INNER JOIN Tabla3 T3 ON T1.Id = T3.Id) " & _
         "INNER JOIN Tabla2 T2 ON T1.Id = T2.Id " & _
         "WHERE T1.FechaMov BETWEEN DateI AND DateF"

rs.Open strSQL, cn, 3, 3
Cells(2, 1).CopyFromRecordset rs

'Creamos encabezados
For i = 0 To rs.Fields.Count - 1
titulo = rs.Fields(i).Name
    Cells(1, i + 1) = titulo
Next

rs.Close
cn.Close

End Sub

[GR77]

Mauricio_ODN

Gracias por tu aporte

Saludos