Acces Pivot Tabel Exporteren naar Excel

[bulendyasin]

Hoi,
Ik probeer meerdere pivot Queries te exporteren naar 1 excel bestand.

Onderstaande code werkt in zo verre dat ik de info in excel krijg. Maar als tabel en niet als pivot.

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "KANBAN_pivot", "C:\Book1.xls", , "KANBAN"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "INTERNAL_MOVES_pivot", "C:\Book1.xls", False, "IM"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "ATS_pivot", "C:\Book1.xls", False, "ATS"

Wat moet ik doen om het als pivot te exporteren?

Bij Voorbaat dank

 

[OctaFish]

Probeer deze variant eens:

DoCmd.OpenQuery "KANBAN_pivot", acViewPivotTable, acEdit
DoCmd.RunCommand acCmdPivotTableExportToExcel
DoCmd.Close acQuery, "KANBAN_pivot"

Wel zorgen dat Excel open staat, of eerst een Excel sessie openen.

 

[bulendyasin]

Hoi OctaFish,
Bedankt voor je snelle reactie,

Echter
Op deze manier opent hij het als een Read Only file.
Ook als Excel al reeds open is.
Wat ik wil is dat hij de pivots in 1 workbook opslaat ieder in een eigen sheet.

Mijn code werkt wat dat betreft maar hij exporteert als tabel en niet als pivot.
Met jou code exporteerd hij pivot en tabel maar dan read only en in een tijdelijke workbook

 

[OctaFish]

De code maakt een tijdelijk bestand aan, dat klopt. Dat kun je vervolgens met SaveAs opslaan onder een nieuwe naam, en dan is hij uiteraard gewoon te bewerken. Verschillende pivots in één werkbook zal dus niet lukken. Wellicht dat je de (tijdelijk) opgeslagen pivottabel weer kan importeren in een verzamelbestand.

Ik kwam deze code tegen:

Sub TestExportPivotTable()
Dim xlapp As Excel.Application
Dim xlWB As Excel.Workbook

DoCmd.OpenTable "tbProducts", acViewPivotTable, acReadOnly
DoCmd.RunCommand acCmdPivotTableExportToExcel

On Error Resume Next
Do Until Not xlapp Is Nothing
    Set xlapp = GetObject(, "Excel.Application")
Loop
   
Set xlWB = xlapp.Workbooks(1)
xlWB.SaveAs "D:\Test.HTM", Excel.XlFileFormat.xlHtml
xlWB.Close
xlapp.Quit

Set xlapp = Nothing
Set xlWB = Nothing
End Sub