ms-access - 如何根据 MS Access 查询的动态结果创建 Excel 文件

Question

在 MS Access 中，我有一个查询，显示每个Zone中的几个Errors。我需要在 Excel 中为每个Zone创建一个摘要，每周都会更改。我创建了一个查询，用于确定该周报告中存在哪些区域。

Zone
Zone 1
Zone 3
Zone 4
Zone 5

我需要创建以下文件：Zone1.xlsm、Zone3.xlsm、Zone4.xlsm、Zone5.xlsm

我是一个完全的新手，所以任何建议都会有所帮助！

Answer 1

您可以使用TransferSpreadsheet

非常粗略：

''The query with unique zones
Set rs = CurrentDB.OpenRecordset("select zones from zonequery")

Do While Not rs.EOF
   ''The sql to get the data
   ssql="SELECT * FROM Whereever Where Zone='" & rs!Zone & "'"

   ''An existing query called MyZoneOutputQuery
   CurrentDB.QueryDefs("MyZoneOutputQuery").sql=ssql

   DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, _
      "MyZoneOutputQuery", "z:\docs\" & rs!Zone & ".xlsm", True
   rs.Movenext
Loop