将 MS Access 查询拆分为多个 Excel 工作簿答案

【问题标题】：Splitting MS Access query into multiple excel workbooks将 MS Access 查询拆分为多个 Excel 工作簿
【发布时间】：2015-01-16 15:47:38
【问题描述】：

我有一个通过 DoCmd.Transferspreadsheet 导出到 excel 的现有查询。

简单来说，查询如下所示：

组 |客户

Group1 客户端1

组 1 客户端 2

Group1 客户端3

Group2 客户端4

Group2 客户端5

Group2 客户端6

等等

由于某些组包含大量客户，我正在尝试查找代码以帮助我按预先指定的客户数量拆分组并导出到 excel，如下所示：

Group1 - 客户端 1 到 300.xlsx

Group1 - 客户端 301 到 600.xlsx

Group2 - 客户端 1 到 300.xlsx

等等

任何建议将不胜感激。非常感谢。

【问题讨论】：

标签： ms-access vba

【解决方案1】：

您可以运行包含客户端 1-300 的查询，然后将该查询导出到 Excel 中。您甚至可以关闭访问权限并为您的用户打开 Excel！

这是我的数据库代码...希望您也可以使用它：

Private Sub Command14_Click()

DoCmd.OpenQuery "rtnbymonth_qry", acViewNormal, acEdit
DoCmd.OutputTo acOutputQuery, "rtnbymonth_Qry", acFormatXLS, "S:\Sales & Use Tax\2015\export.xls"
DoCmd.Close acQuery, "rtnbymonth_qry", acSaveNo

'Open Excel
Call OpenSpecific_xlFile

【讨论】：

问题是我的查询平均有大约 15,000 条记录。我需要将其导出到每个包含 300 条记录的单独电子表格中。