Leggi quanto scritto da Archimende (che ha scritto mentre postavo)
Per creare i file di excel in automatico:
Apri un file excel
inserisci in un modulo questa macro
- Codice: Seleziona tutto
Sub Creafile()
Perc = "C:\Temp\"
For FL = 1 To 250
Fname = "NomeFile" & Format(FL, "000")
ThisWorkbook.SaveAs Filename:=Perc & Fname
Next FL
End Sub
E' sconsigliato usare il Desktop come archivio di documenti quindi utilizza un'altra directory del disco.
Ho formattato il numero assenato al nome del file con 3 cifre (001, 002 etc) in maniera che avrai il corretto ordinamento nella directory destinazione.
Per quanto riguarda la macro di esportazione query potresti usare il ciclo for next senza dover ripetere 250 righe di codice
- Codice: Seleziona tutto
Public Sub exportExcel()
For QN = 1 To 250
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Query" & QN, "C:\Temp\NomeFile" & Format(QN, "000") & ".xls", True
Next QN
End Sub
Ciao