Codice Access per esportare query in Excel

[stefaniamilano]

Ciao,
ho creato questo modulo in Access per esportare 2 query nello stesso foglio di un file Excel, in 2 intervalli diversi

DoCmd.TransferSpreadsheet acExport, 10, "QdaE1", "C:\pippo.xlsx", True
DoCmd.TransferSpreadsheet acExport, 10, "QdaE2", "C:\pippo.xlsx", True

ma li salva in 2 fogli diversi, inoltre non so come specificargli gli intervalli :wall:

Qualcuno può aiutarmi?
Grazie in anticipo
Stefania

[LoryOne]

Con il DoCmd (accrocchio salvavita, ma da principianti) altro non si fa che richiamare le voci di menu ed identiche sub-procedure pre-confezionate richiamate all'interno dell'interfaccia utente quando questi clicca sulla voce e compila la maschera proposta/ottiene da subito il risultato sperato.
Devi cercare più a fondo tra le classi, i metodi e le proprietà degli oggetti di Access...
Tieni a mente che Access, così come Excel, Word e tutto il pacchetto Office sono interfacce a TLB pre-costituite e richiamabili attraverso interfaccia a funzioni, procedure, classi, oggetti.

Puoi interfacciarti alla TLB di Excel direttamente in Access, accedendo all'interfaccia OLE...

[stefaniamilano]

Con il DoCmd (accrocchio salvavita, ma da principianti) altro non si fa che richiamare le voci di menu ed identiche sub-procedure pre-confezionate richiamate all'interno dell'interfaccia utente quando questi clicca sulla voce e compila la maschera proposta/ottiene da subito il risultato sperato.
Devi cercare più a fondo tra le classi, i metodi e le proprietà degli oggetti di Access...
Tieni a mente che Access, così come Excel, Word e tutto il pacchetto Office sono interfacce a TLB pre-costituite e richiamabili attraverso interfaccia a funzioni, procedure, classi, oggetti.

Puoi interfacciarti alla TLB di Excel direttamente in Access, accedendo all'interfaccia OLE...

Non sto a questi livelli, mi appoggiavo a DoCmd perché è preconfezionato, non so fare di più: mi basterebbe anche che i dati delle due query si accodassero una sotto l'altra nel file Excel

[Alexsandra]

Private Sub Comando4_Click()
On Error GoTo Maschera1_Err
DoCmd.TransferSpreadsheet acExport, 8, "QdaE1 query", "c:\pippo", False, ""


Maschera1_Exit:
Exit Sub
Maschera1_Err:
MsgBox Error$
Resume Maschera1_Exit
End Sub