Ayuda con una tabla dinámica

Hola Buenos días Jorge tengo necesito que por favor me ayudes:
Tengo un botón que hace que una consulta se guarde con formato excel
Private Sub Comando19_Click()
On Error GoTo Err_Comando19_Click
Dim oApp As Object
Dim nombre As String
Dim trafico As String
Dim fomulario As String
Dim stLinkCriteria As String
nombre = "GENERAR ANEXOS Consulta"
DoCmd.OutputTo acOutputQuery, nombre, acFormatXLS, "D:\yalena\Nueva carpeta\basededatos\sedeCuotas.xls"
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
On Error Resume Next
oApp.Workbooks.Open "D:\yalena\Nueva carpeta\basededatos\plantilla.xls"
Exit_Comando19_Click:
Exit Sub
Err_Comando19_Click:
MsgBox Err.Description
Resume Exit_Comando19_Click
End Sub una consulta que se llama
y en otro boton lo que hago que se habra una tabla dinamica a travez de un formulario
Private Sub Comando22_Click()
On Error GoTo Err_Comando22_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "detalle de trafico"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando22_Click:
Exit Sub
Err_Comando22_Click:
MsgBox Err.Description
Resume Exit_Comando22_Click
End Sub
Como la tabla dinámica esta generada con la misma consulta lo que quiero hacer es que a través de un botón se habrá en una hoja la tabla dinámica y en otra vea los datos de la consulta
como podría hacer esto por favor lo necesito para mi trabajo
de antemano muchas gracias por tu ayuda