Accès: pour exporter des champs vers Excel en fonction d'une requête

Question

Je cherche à exporter quelques fichiers dans Excel depuis MS Access en interrogeant une table.

Il est comme ça la requête sera

select * from table where field = 0  

Je voudrais boucler la requête jusqu'à ce champ est 9 et je veux enregistrer chaque résultat un nom différent, comme champ1, champ2

Comment cela doit-il être modifié?

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

aussi comment dois-je nommer la première feuille comme field1 et dans la prochaine boucle field2

Answer 1

Je l'ai finalement obtenu fait de cette façon

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 le nom de la feuille dans le champ « Range » du commandement TransferSpreadsheet.

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

Answer 3

Alors, vraiment ce que vous voulez est quelque chose comme ça

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