MS Access，VBA-将交叉表导出到Excel

Question

目的

1. 从现有表创建交叉表
2. 通过VBA将格式化的交叉表导出到excel

APPROACH

1. 创建查询以获取表的必要数据
2. 创建了一个交叉表查询以正确格式化现有表中的数据
3. ！需要帮助！ 将交叉表查询推送到Excel

问题

1. 我在线上四处查看，似乎很难将交叉表导出为ex​​cel-似乎大多数论坛建议逐行迭代以导出交叉表（这非常令人惊讶）。 有什么办法可以利用一种方法（例如DoCmd.TransferSpreadsheet ）来导出交叉表？

为什么这么难，令我惊讶，为天真致歉

Answer 1

我只是在MS Access中创建所需的查询。

然后在Excel中，我编写了一个宏，用于运行查询并将其输出到工作表。 请参阅下面的示例。

Dim cnString As String
Dim rs As New ADODB.Recordset

'Change connection string to an MS Access one
cnString = "Provider=xx;Server=xx,49168;Database=xx;"
rs.Open queryName, cnString, adOpenStatic, adLockOptimistic

'Output Headings
For i = 1 To rs.Fields.Count
        Sheets(PasteSheet).Range(pasteCell).Offset(0, i - 1) = rs.Fields(i - 1).Name
Next i

'Output data
Sheets(PasteSheet).Range(pasteCell).Offset(1, 0).CopyFromRecordset rs
rs.close

如果您想在MS Access中完成所有这些操作，则无需花费太多修改。 您只需要创建一个新的工作簿，然后执行与上述代码非常相似的操作即可。

Answer 2

跟进我原来的帖子。 看来您可以使用DoCmd.TransferSpreadsheet导出交叉表。

我在下面定义了工作代码：

outputQuery = [your cross table query]
outputPath = [save-to file location]
outputFileName = [save-to file name]

DoCmd.TransferSpreadsheet acExport, SpreadsheetType:=acSpreadsheetTypeExcel12Xml, TableName:=outputQuery, FileName:=outputPath & outputfilename