2013-03-20 43 views
0

在MS Access中,我有一個查詢顯示幾個錯誤在每個區域。我需要在Excel中爲每個區域創建一個彙總,該彙總每週都會更改。我創建了一個查詢來確定哪些區域在那個星期報告中存在。如何基於MS Access查詢的動態結果創建Excel文件

Zone 
Zone 1 
Zone 3 
Zone 4 
Zone 5 

我需要創建以下文件:Zone1.xlsm,Zone3.xlsm,Zone4.xlsm,Zone5.xlsm

我是一個完整的新手,所以任何建議將幫助!

回答

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