Question

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

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

如何基于MS Access查询的动态结果创建Excel文件

1 个答案: