访问：基于查询将字段导出为ex​​cel

Question

我正在寻找基于查询表将一些文件从MS Access导出到Excel中。

是这样的查询将是

select * from table where field = 0  

我想循环查询，直到场是9，我想每个 结果保存为不同的名称，如字段1，字段2

如何这将不得不被修改？

strqry = "select * from table where field = 1" 
DoCmd.TransferSpreadsheet acExport, _ 
          acSpreadsheetTypeExcel9, _ 
          "strqry", _ 
          "C:\Reports\Data_Analysis1.xls", _ 
          True 

而且我怎么命名的第一张为FIELD1并在下一循环场2

Answer 1

我终于得到它做这样

For i = 1 To 9 
    CurrentDb.QueryDefs("MyQuery").SQL = "Select * from table Where field = " & i 
    DoCmd.TransferSpreadsheet acExport, _ 
           acSpreadsheetTypeExcel9, _ 
           "MyQuery", _ 
           "C:\Reports\Data_Analysis.xls", _ 
           True, _ 
           "Field_" & i 
Next i 

Answer 2

Speicify在TransferSpreadsheet的命令的“范围”字段的表名称。

DoCmd.TransferSpreadsheet acExport, _ 
          acSpreadsheetTypeExcel9, _ 
          "tablename", _ 
          "filename.xls", _ 
          True, _ 
          "sheetname" 

Answer 3

所以你真正想要的是像这样

dim i as integer 

for i = 1 to 9 
    strqry = "select * from table where field = " & i 
    DoCmd.TransferSpreadsheet acExport, _ 
           acSpreadsheetTypeExcel9, _ 
           strqry, _ 
           "filename.xls", _ 
           True, _ 
           "sheetname_" & i 
next i