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

Ms access 如何基于MS Access查询的动态结果创建Excel文件,ms-access,Ms Access,在MS Access中,我有一个查询,显示每个区域中的几个错误。我需要在Excel中为每个区域创建一个摘要,它将每周更改。我创建了一个查询,用于确定该周报告中存在哪些区域 Zone Zone 1 Zone 3 Zone 4 Zone 5 我需要创建以下文件:Zone1.xlsm、Zone3.xlsm、Zone4.xlsm、Zone5.xlsm 我是一个完全的新手,所以任何建议都会有帮助 您可以使用 非常粗略地说: ''The query with unique zones Set rs = C

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

Zone
Zone 1
Zone 3
Zone 4
Zone 5
我需要创建以下文件:Zone1.xlsm、Zone3.xlsm、Zone4.xlsm、Zone5.xlsm

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

您可以使用

非常粗略地说:

''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