Discussione:
OutputTo nome file
(troppo vecchio per rispondere)
Tony61
2009-11-08 10:29:28 UTC
Permalink
Buongiorno a tutti

Su click di un bottone vorrei esportare una query in excel tramite il metodo
OutputTo,
dandogli il nome del file composto da tre campi di una maschera, ma mi dice
"impossibile salvare i dati di output nel file selezionato"
Un'altra cosa che mi piacerebbe fare, è quella di verificare se nella
cartella destinataria esiste già un file con quel nome.
grazie anticipatamente
Toni

riporto il codice inserito:

Private Sub Comando20_Click()
On Error GoTo Err_Comando20_Click
Dim nomefile As String
nomefile = "C:\Questionarioprova\" & Me.ansc & " " & Me.ist & " " & Me.sez &
".xls"
If DCount("*", "esportaquery") > 0 Then
DoCmd.OutputTo acOutputQuery, "esportaquery", acFormatXLS, nomefile
Else
MsgBox "In base alla richiesta formulata non ci sono dati da esportare",
vbExclamation
End If

Exit_Comando20_Click:
Exit Sub

Err_Comando20_Click:
MsgBox Err.Description
Resume Exit_Comando20_Click

End Sub
Carlo Costarella
2009-11-08 10:53:47 UTC
Permalink
Post by Tony61
Buongiorno a tutti
Su click di un bottone vorrei esportare una query in excel tramite il
metodo OutputTo,
dandogli il nome del file composto da tre campi di una maschera, ma mi
dice "impossibile salvare i dati di output nel file selezionato"
Un'altra cosa che mi piacerebbe fare, è quella di verificare se nella
cartella destinataria esiste già un file con quel nome.
grazie anticipatamente
Toni
Private Sub Comando20_Click()
On Error GoTo Err_Comando20_Click
Dim nomefile As String
nomefile = "C:\Questionarioprova\" & Me.ansc & " " & Me.ist & " " & Me.sez
& ".xls"
If DCount("*", "esportaquery") > 0 Then
DoCmd.OutputTo acOutputQuery, "esportaquery", acFormatXLS, nomefile
Else
MsgBox "In base alla richiesta formulata non ci sono dati da esportare",
vbExclamation
End If
Exit Sub
MsgBox Err.Description
Resume Exit_Comando20_Click
End Sub
Dal codice sembra che metti degli spazi, non graditi a Windows.
Probabilmente o togli gli spazi o metti tutto tra virgolette:
nomefile = "C:\Questionarioprova\" & Me.ansc & Me.ist & Me.sez & ".xls"
oppure:
nomefile = "'" & "C:\Questionarioprova\" & Me.ansc & " " & Me.ist & " " &
Me.sez & ".xls" & "'"
oppure ancora:
nomefile = """" & "C:\Questionarioprova\" & Me.ansc & " " & Me.ist & " " &
Me.sez & ".xls" & """"

Ciao, Carlo
Pablitomf (da casa)
2009-11-08 11:11:59 UTC
Permalink
Post by Carlo Costarella
Post by Tony61
Buongiorno a tutti
Su click di un bottone vorrei esportare una query in excel tramite il
metodo OutputTo,
dandogli il nome del file composto da tre campi di una maschera, ma
mi dice "impossibile salvare i dati di output nel file selezionato"
Un'altra cosa che mi piacerebbe fare, è quella di verificare se nella
cartella destinataria esiste già un file con quel nome.
grazie anticipatamente
Toni
Private Sub Comando20_Click()
On Error GoTo Err_Comando20_Click
Dim nomefile As String
nomefile = "C:\Questionarioprova\" & Me.ansc & " " & Me.ist & " " &
Me.sez & ".xls"
If DCount("*", "esportaquery") > 0 Then
DoCmd.OutputTo acOutputQuery, "esportaquery", acFormatXLS, nomefile
Else
MsgBox "In base alla richiesta formulata non ci sono dati da
esportare", vbExclamation
End If
Exit Sub
MsgBox Err.Description
Resume Exit_Comando20_Click
End Sub
Dal codice sembra che metti degli spazi, non graditi a Windows.
nomefile = "C:\Questionarioprova\" & Me.ansc & Me.ist & Me.sez &
nomefile = "'" & "C:\Questionarioprova\" & Me.ansc & " " & Me.ist & "
" & Me.sez & ".xls" & "'"
nomefile = """" & "C:\Questionarioprova\" & Me.ansc & " " & Me.ist &
" " & Me.sez & ".xls" & """"
Ciao, Carlo
o ancora :
nomefile = chr(34) & ...tutta_la_tua_stringa... & chr(34)
Carlo Costarella
2009-11-08 11:23:03 UTC
Permalink
Meno male che oggi pomeriggio ci sono le partite.
Zero a zero a Catania non è andata male.

Ciao, Carlo
Pablitomf (da casa)
2009-11-08 11:25:56 UTC
Permalink
Post by Carlo Costarella
Meno male che oggi pomeriggio ci sono le partite.
Zero a zero a Catania non è andata male.
Ciao, Carlo
no... è andata benissimo... 1 punto guadagnato visto come ieri ha giocato il
Catania (onore al merito)...
ma dopo 10 punti in 1 settimana e mezza contro Bologna, Fiorentina, Milan, e
Juve, un calo sia psicologico che fisico è d'obbligo... buono è che c'è la
sosta...
;-)
Carlo Costarella
2009-11-08 12:24:53 UTC
Permalink
Post by Pablitomf (da casa)
Post by Carlo Costarella
Meno male che oggi pomeriggio ci sono le partite.
Zero a zero a Catania non è andata male.
Ciao, Carlo
no... è andata benissimo... 1 punto guadagnato visto come ieri ha giocato
il Catania (onore al merito)...
ma dopo 10 punti in 1 settimana e mezza contro Bologna, Fiorentina, Milan,
e Juve, un calo sia psicologico che fisico è d'obbligo... buono è che c'è
la sosta...
;-)
Beh, psicologicamente dovrebbero stare benone, fisicamente un po' meno.
Comunque in sette giorni potranno smaltire bene l'acido lattico.
Forza ciuccio!

Ciao, Carlo
Tony61
2009-11-08 12:38:49 UTC
Permalink
Post by Pablitomf (da casa)
Post by Carlo Costarella
Meno male che oggi pomeriggio ci sono le partite.
Zero a zero a Catania non è andata male.
Ciao, Carlo
no... è andata benissimo... 1 punto guadagnato visto come ieri ha giocato
il Catania (onore al merito)...
ma dopo 10 punti in 1 settimana e mezza contro Bologna, Fiorentina, Milan,
e Juve, un calo sia psicologico che fisico è d'obbligo... buono è che c'è
la sosta...
;-)
OK Funziona, avevo anche un carattere non valido come separatore nel campo
"ansc"
Grazie a tutti !
Riccardo Baldinotti
2009-11-09 15:44:28 UTC
Permalink
Post by Pablitomf (da casa)
Post by Carlo Costarella
Meno male che oggi pomeriggio ci sono le partite.
Zero a zero a Catania non è andata male.
Ciao, Carlo
no... è andata benissimo... 1 punto guadagnato visto come ieri ha giocato
il Catania (onore al merito)...
ma dopo 10 punti in 1 settimana e mezza contro Bologna, Fiorentina, Milan,
e Juve, un calo sia psicologico che fisico è d'obbligo... buono è che c'è
la sosta...
;-)
OK Funziona, avevo anche un carattere non valido come separatore nel  campo
"ansc"
Grazie a tutti !
Credo che qui avresti dovuto aggiugnere un "Forza Napoli". :-)
Riccardo Baldinotti
Pablitomf (da casa)
2009-11-09 18:38:05 UTC
Permalink
Post by Riccardo Baldinotti
Post by Tony61
Post by Pablitomf (da casa)
Post by Carlo Costarella
Meno male che oggi pomeriggio ci sono le partite.
Zero a zero a Catania non è andata male.
Ciao, Carlo
no... è andata benissimo... 1 punto guadagnato visto come ieri ha
giocato il Catania (onore al merito)...
ma dopo 10 punti in 1 settimana e mezza contro Bologna, Fiorentina,
Milan, e Juve, un calo sia psicologico che fisico è d'obbligo...
buono è che c'è la sosta...
;-)
OK Funziona, avevo anche un carattere non valido come separatore nel
campo "ansc"
Grazie a tutti !
Credo che qui avresti dovuto aggiugnere un "Forza Napoli". :-)
Riccardo Baldinotti
bravo!!!! con questo hai meritato un bonus per un aiuto a gratisse! :D
Riccardo Baldinotti
2009-11-10 08:46:25 UTC
Permalink
Post by Pablitomf (da casa)
Post by Riccardo Baldinotti
Post by Tony61
Post by Pablitomf (da casa)
Post by Carlo Costarella
Meno male che oggi pomeriggio ci sono le partite.
Zero a zero a Catania non è andata male.
Ciao, Carlo
no... è andata benissimo... 1 punto guadagnato visto come ieri ha
giocato il Catania (onore al merito)...
ma dopo 10 punti in 1 settimana e mezza contro Bologna, Fiorentina,
Milan, e Juve, un calo sia psicologico che fisico è d'obbligo...
buono è che c'è la sosta...
;-)
OK Funziona, avevo anche un carattere non valido come separatore nel
campo "ansc"
Grazie a tutti !
Credo che qui avresti dovuto aggiugnere un "Forza Napoli". :-)
RiccardoBaldinotti
bravo!!!! con questo hai meritato un bonus per un aiuto a gratisse! :D
- Mostra testo citato -
Meno male! Con quel che costano i forum oggidì... ;->
Riccardo Baldinotti

Loading...