Codice VBA per eseguire una query di Access (con immagine)
Che cos'è?
Questo codice VBA consente di eseguire il programma Accesso da qualsiasi strumento supportato da VBA, come MS Excel, Word ecc.
Perché?
È possibile evitare il processo di apertura del DB ed esecuzione manuale della query; questo codice verrà eseguito anche da un Excel foglio senza aprire Access DB manualmente.
Se si utilizza l'opzione Importa Risultati della query di accesso Il codice discusso nel post precedente consente anche di ottenere i risultati della query in Excel, il tutto con un solo clic.
Codice VBA per importare dati di tabelle/query di Access in Excel
Come utilizzare il codice VBA per eseguire una query di Access
(adsbygoogle = window.adsbygoogle || []).push({});
Passo 1: Copiare e incollare il codice sottostante nel proprio modulo.
Dim myDB come database
Impostare myDB = OpenDatabase("C:\MYDATABASE.mdb") Indicare il percorso del DB e sostituire 'MYDATABASE' con il nome del DB di Access.
myDB.Esegui "myQuery" Sostituire 'myQuery' con il nome della query di Access.
myDB.close Usare questa opzione solo se si desidera chiudere il DB
Impostare myDB = OpenDatabase("C:\MYDATABASE.mdb") Indicare il percorso del DB e sostituire 'MYDATABASE' con il nome del DB di Access.
myDB.Esegui "myQuery" Sostituire 'myQuery' con il nome della query di Access.
myDB.close Usare questa opzione solo se si desidera chiudere il DB
Passo 2: Fare clic sul pulsante Esegui o su F5 per eseguire la query di Access.
