esporta query in excel con macro o vba(meglio)

Question

ciao a tutti.

vorrei con un pulsante esportare in totouna query in excel creando un pulsante cui collegare una formula vba- anche avendo studiato non ne sn capace purtroppo.

grazi per il prezioso aiuto

Answer 1

Andre78ner wrote:

niente errore.... ho riformulato così:

Option Compare Database

Private Sub Comando19_Click()

'DoCmd.OutputTo acOutputQuery, "select * from aaa", "Microsoft Excel

(*.xls)", "C:\Users\Nerargento lounge\Documents\BAR\prova.xls", -1

DoCmd.OutputTo acOutputQuery, _ "aaa", _

"Microsoft Excel (*.xls)", _

"C:\Users\Nerargento lounge\Documents\BAR\prova.xls", _

True

End Sub

ma...nada. altra idea/metodo?

Sei sicuro che il codice viene eseguito?

Prova con un punto di iterrogazione o un

Debug.Print "Pippo"

prima del OutPutTo.

Se non viene eseguito prova se puoi eseguire un qualsiasi codice

e controlla com'è impostato il livello di sicurezza per i macro o

se hai scelto un percorso attentibile per questa applicazione.

Un altra causa perche il file non viene creato puo essere che tu

(o Access) non hai il diritto di creare un file in questo percorso.

Prova con un percorso dove di sicuro hai i diritti.

---

Ciao

Karl

*********

Access FAQ:  http://www.donkarl.com/it

Answer 2

niente errore.... ho riformulato così:

Option Compare Database

Private Sub Comando19_Click()

'DoCmd.OutputTo acOutputQuery, "select * from aaa", "Microsoft Excel (*.xls)", "C:\Users\Nerargento lounge\Documents\BAR\prova.xls", -1

DoCmd.OutputTo acOutputQuery, _

    "aaa", _

    "Microsoft Excel (*.xls)", _

    "C:\Users\Nerargento lounge\Documents\BAR\prova.xls", _

    True

End Sub

ma...nada. altra idea/metodo? ...grazie 1000

Answer 3

Andre78ner wrote:

ma, ahimè, non mi crea il file... possibile? :

Private Sub Comando19_Click()

DoCmd.OutputTo acOutputQuery, "select * from dati IN Query",

"Microsoft Excel (*.xls)", "C:\Users\Nerargento

lounge\Documents\BAR\prova.xls", -1

End Sub

dove sbaglio???

Secondo me devi ricevere un errore che Access non puo

trovare l'oggetto "select * from dati IN Query" (del resto non è

un enunciato SQL valido).

OutputTo solo accetta il nome di un oggetto salvato.

Vuol dire che devi usare il nome di una query salvata:

DoCmd.OutputTo acOutputQuery, _

    "NomeDellaTuaQuery", _

    "Microsoft Excel (*.xls)", _

    "C:\Users\Nerargento lounge\Documents\BAR\prova.xls", _

    True

---

Ciao

Karl

*********

Access FAQ:  http://www.donkarl.com/it

Answer 4

grazie mille per l'aiuto.

ma, ahimè, non mi crea il file... possibile? :

Private Sub Comando19_Click()

DoCmd.OutputTo acOutputQuery, "select * from dati IN Query", "Microsoft Excel (*.xls)", "C:\Users\Nerargento lounge\Documents\BAR\prova.xls", -1

End Sub

dove sbaglio???

Answer 5

Ciao,

è molto semplice:

DoCmd.OutputTo acOutputQuery, strSQL, "Microsoft Excel (*.xls)", NomeFoglioDati, -1

strSQL è la stringa sql o il nome della query.

Nome foglio dati sosttuiscilo con "C:\nomecartelle\prova.xls"

un esempio:

DoCmd.OutputTo acOutputQuery, "select * from nometuatabella", "Microsoft Excel (*.xls)", "C:\Prova\prova.xls", -1

Ciao