Come creare una macro per eseguire una query di Access & Incolla il risultato in Excel

Creazione di una macro di Microsoft Access che consente di incollare i risultati di una query in Excel può essere fatto collegando ad Access da Excel , o applicando il codice di macro per controllare direttamente da Excel L'accesso

Nota : . tutti, ma gli ultimi tre passaggi si applicano agli utenti di accesso ( e Excel ) 2007 . Se si dispone di una versione precedente di Access, procedere al terzultimo gradino . Cose che ti serviranno
Microsoft Excel e Access
Mostra più istruzioni
1

In Access , creare una tabella di dati di esempio : inserisci i seguenti dati in una nuova tabella :

il turista accidentale , 12/1/2009 , 6,01 dollari
turista per caso , 12/3/2009 , 7,98 dollari
ferro john , 12 /5/2009 , 4,98 dollari
ferro john , 12/6/2009 , 5,98 dollari
2

doppio clic sulle intestazioni delle colonne (ad esempio, \\ " Campo1 \\ " ) e sostituire ognuno con queste intestazioni , in questo ordine :

libro, datesold , netsale

Salvare la tabella ( \\ "control - s \\ " ) con il nome di \\ " libri. \\ "
3

Creare una query dalla tabella , e premere il tasto \\ "Esc \\ " nella " tabella \\ spettacolo \\ " finestra di dialogo. Fai clic destro sulla scheda della query e selezionare \\ " visualizzazione SQL \\ ". Inserire il seguente nella finestra del codice : .

Libri SELECT * INTO queryresults
DA libri
WHERE ( ( ( books.book ) Like ' * acc * '))
GO

Salvare la query ( \\ "control - s \\ ") e il nome \\ " vbaquery . \\ "
4

Aprire Excel e premere \\ della barra degli strumenti " Dati > Da Access \\ "icona . Selezionare l'opzione " \\ queryresults " tavolo \\ nella finestra di dialogo \\ "\\ Seleziona tabella " . Fare clic su \\ " OK \\ " sulla " \\ Importa dati " finestra di dialogo \\ e notare i risultati della query : solo il \\ " ferro john \\ " i libri sono mostrati. Salvare il file di Excel con qualsiasi nome , e chiuderlo.
5

riaprire il \\ " libri \\ " database in Access . Aprire il \\ " vbaquery \\ " e rivedere i suoi \\ "Criteri : \\ " campo di leggere \\ "Like ' * acc * ' \\ " (non digitare le virgolette doppie Tipo DO l' interno , unico . virgolette. ) Salvare la query.
6

creare una nuova query . Digitare la seguente istruzione SQL nella finestra \\ "SQL vista \\ " , quindi salvare la query come \\ " dropqueryresults \\":

GOCCIA queryresults tavola;

7

Inserisci l' ambiente di sviluppo integrato di Visual Basic ( IDE ) premendo \\ " alt- f11 , \\ " e selezionare \\ " Inserisci> modulo . \\ " Incollare il codice riportato di seguito nel codice vuoto del nuovo modulo finestra :

pubblico RunQuery Sub ( )
' cancellare i risultati del tavolo prima
On Error GoTo DO_QUERY
RunQueryForExcel ( \\ " dropqueryresults \\ " )

DO_QUERY :
RunQueryForExcel ( \\ " vbaquery \\ " ) End Sub

< br /> Public Sub RunQueryForExcel ( qName As String )
DoCmd.SetWarnings False
CurrentDb.Execute qName
DoCmd.SetWarnings vero
End Sub