Question

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

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

群组|客户端

Group1 Client1

Group1 Client2

Group1 Client3

Group2 Client4

Group2 Client5

Group2 Client6

等

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

Group1 - 客户1至300.xlsx

Group1 - 客户301至600.xlsx

Group2 - 客户1至300.xlsx

等

我们非常感谢任何建议。非常感谢。

Answer 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

将MS Access查询拆分为多个excel工作簿

1 个答案: