Newsgroup: it.comp.appl.access
Titolo: Esportare report in Excel





Buonasera a tutti, 


qualcuno riesce a darmi una dritta per 
poter 
esportare un report in excel, 
attribuendo al nome del file in excel il numero di ID del mio report in 
automatico senza doverlo digitare?


 


attualmente il comando che eseguo è il 
seguente:


 


DoCmd.OutputTo acOutputReport, 
nomefile
, acFormatXLS


dove nomefile ha un 
valore fisso.
 


Grazie
Ciao a tutti 


 


Chita






Non conviene esportare solo i Dati in Excel usando il metodo
TransfertSpreadsheet...?
Per la tua domanda invece serve capire con che logica lavori... perchè
generare Nomi è banale, ma le condizioni
per farlo bene possono esserlo meno...
@Alex

>@Alex
Le condizioni che uso per esportare il file in excel vengono soddisfatte dal 
seguente codice:
            DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , 
acMenuVer70
            Forms!Preventivo.Refresh
            Dim stDocName3 As String
            Dim strFiltro3 As String
            stDocName3 = "DettagliPreventivo"
            strFiltro3 = "id = Forms!preventivo!id"
DoCmd.OpenReport stDocName3, acViewPreview, , strFiltro3
DoCmd.OutputTo acOutputReport, stDocName3, acFormatXLS
al termine del comando mi si crea in automatico un file in excel dei 
dettagli del preventivo visualizzato nella maschera con il seguente nome: 
DettagliPreventivo.xls.
La mia richiesta sarebbe:
creare in automatico il nome del file excel con il numero id del preventivo 
cio� (strFiltro3 = "id = Forms!preventivo!id").xls
Grazie ciao
Chita

 ha scritto nel messaggio 
news:4cc3eac7$0$45262$4faf...@reader4.news.tin.it...


 ha scritto nel messaggio 
news:4cc3eba3$0$45269$4faf...@reader4.news.tin.it...

ci sono quasi.....................
ho modificato il codice in questo modo:
            DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , 
acMenuVer70
            Forms!Preventivo.Refresh
            Dim stDocName3 As String
            Dim stDocName4 As String
            Dim strFiltro3 As String
            stDocName3 = "DettagliPreventivo"
            stDocName4 = Forms!Preventivo!IDPreventivo
            strFiltro3 = "id = Forms!Preventivo!id"
DoCmd.OpenReport stDocName3, acViewPreview, , strFiltro3
DoCmd.OutputTo acOutputReport, stDocName3, acFormatXLS, stDocName4
mi si crea il file ma senza estensione .xls
dove sbaglio, o cosa pu� mancare?
Grazie
Ciao
Chita

 Chita
Manca l'estensione nella stringa stDocName3.
@Alex

>>>>@Alex
la stringa stDocName3 � il nome del report da cui filtro i dati, 
l'estensione dove e come la inserisco???
Grazie
Ciao
Chita

 ha scritto nel messaggio 
news:4cc421e4$0$27965$4faf...@reader5.news.tin.it...

Ok!!!  Risolto........  ecco il codice per risolvere il problema!
            DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , 
acMenuVer70
            Forms!PREVENTIVO.Refresh
            Dim stDocName3 As String
            Dim stDocName4 As String
            Dim stDocName5 As String
            Dim strFiltro3 As String
            stDocName3 = "DettagliPreventivo"
            stDocName4 = Forms!Preventivo!IDPreventivo
            stDocName5 = ".xls"
            strFiltro3 = "id = Forms!Preventivo!ID"
DoCmd.OpenReport stDocName3, acViewPreview, , strFiltro3
DoCmd.OutputTo acOutputReport, stDocName3, acFormatXLS, stDocName4 & 
stDocName5
Grazie Alex per lo scambio di idee! Alla prossima!
Ciao!
Chita