しかし、VBA でそれを行うことができます。
Function ImportCrosstab(TheDB As String, TheCrosstab As String, TheSpreadsheet As String)
'requires a reference to the Microsoft Office Access Database Engine 12.0 Object Library
'e.g.ImportCrosstab "C:\Databases\Newdatabase.accdb", "Q_stage_crosstab", "CompliancebyStage"
Dim db As Database
Dim qdf As QueryDef
Dim rs As Recordset
Dim ws As Worksheet
Dim strConnection As String
Dim j As Long
Dim xls As Object 'your Excel.Application with sheet activated
Set ws = ThisWorkbook.Worksheets(TheSpreadsheet)
Set db = OpenDatabase(TheDB)
Set qdf = db.QueryDefs(TheCrosstab)
Set rs = qdf.OpenRecordset
With ws
For j = 0 To rs.Fields.Count - 1
.Cells(1, j + 1).Value = rs.Fields(j).Name
Next
.Range("A2").CopyFromRecordset rs
End With
rs.Close
End Function