0

MS Accessには、各ゾーンでいくつかのエラーを表示するクエリがあります。ゾーンごとにExcelで要約を作成する必要があります。これは、毎週変更されます。その週のレポートにどのゾーンが存在するかを判別するクエリを作成しました。

Zone
Zone 1
Zone 3
Zone 4
Zone 5

次のファイルを作成する必要があります:Zone1.xlsm、Zone3.xlsm、Zone4.xlsm、Zone5.xlsm

私は完全な初心者なので、どんなアドバイスでも役に立ちます!

4

1 に答える 1

0

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
于 2013-03-20T15:21:27.580 に答える