Export Pivot Table View To Excel

so I have this code for exporting all my other queries

Code:
Private Sub Command4_Click()
On Error GoTo Err_cmdTest_Click
'Must 1st set a Reference to the Microsoft Office XX.X Object Library
Dim dlgOpen As FileDialog
Dim strExportPath As String
Const conOBJECT_TO_EXPORT As String = "qryGEM"

[code]...

The codes work perfectly fine but it doesnt work well for pivot table view. What should I add to the add to make it work? I dont want pivot table in datasheet. I did try the codes posted by other people but it works well for if I have only ONE QUERY to export. As you can see, the above codes are for exporting more than one query.