Open Access e creare la seguente tabella di dati di esempio , che dispone di campo nomi nella riga superiore . Fare clic su \\ "Crea > Tabella \\ " per creare la tabella .
Gioco , SaleDate , totalsale
sisma , 12/1/2009 , $ 6,01 < br /> sisma , 12/3/2009 , 7,98 dollari
guitar hero , 12/5/2009 , 4,98 dollari
guitar hero , 12/6/2009 , 5,98 dollari
< , br /> Salvare la tabella ( premendo il tasto \\ "control - s \\ ") con il nome di \\ "giochi \\ ".
2
Creare una nuova query per la tabella giochi facendo clic su \\ "Crea > Struttura query , \\ " tasto destro del mouse sul " Query1 \\ " testo \\ nella scheda della query , e facendo clic su \\ " Visualizzazione SQL . \\ "
< br /> Immettere la seguente istruzione nella finestra del codice SQL : .
selezionare Giochi * INTO myqueryres
dai giochi
WHERE ( ( ( games. gioco) come ' * tar * '))
GO
Salvare la query ( da pressnig \\ "control - s \\") come \\ " myQuery . \\ "
3
Eseguire la query facendo doppio clic su \\ " myQuery \\ " nel pannello di navigazione , quindi chiudere Access e aprire Microsoft Excel .
4
Fare clic su \\ " dati \\ " e scegliere \\ " Da Access. \\" nella \\ " Seleziona origine dati \\ " finestra di dialogo , aprire il database di Access è stato creato il tavolo giochi dentro Selezionare la tabella \\ " myqueryres \\ " da \\ "Seleziona tabella \\ " finestra di dialogo , quindi premere \\ " OK \\ " sulla " \\ Importa dati " finestra di dialogo \\ . Si noti che Excel ha importato la query .
5
Chiudere Excel , ricordando il nome del file quando si salva il file . Accesso riaprire . Rivedere \\ " myQuery \\ " a \\ " Visualizzazione SQL \\ " come segue : .
Selezionare Giochi * INTO myqueryres
dai giochi < br /> WHERE ( ( ( games.game ) Like ' * ua * '));
6
Salvare ed eseguire nuovamente la query , quindi chiudere Access e riaprire il file di Excel è stato creato il collegamento tavolo dentro Select \\ " dati \\ " e scegliere \\ " Connections \\", quindi premere il tasto " \\ Refresh" tasto \\ nella cartella "\\ Connessioni cartella di lavoro ", la finestra di dialogo \\ . Chiudere la finestra di dialogo e notare che i risultati della query sono cambiati .
7
( Per gli utenti di Excel 2003) Completare i passaggi 1 e 2 . Run \\ " myQuery \\", quindi premere il tasto \\ " alt \\ " + \\ " F11 \\ " per entrare nell'ambiente di sviluppo integrato di Visual Basic ( IDE ) . Premere \\ " \\" Insert e selezionare \\ " del modulo \\", quindi incollare il seguente codice di programma nella nuova finestra del codice :
Public Sub sendToExcel ( )
'''''' '''''''' '''''''' '' '
Set curdb = CurrentDb < , br /> Impostare RECS = curdb.OpenRecordset ( \\ " myqueryres \\ " )
st = \\ "gioco \\ " e \\ " , \\ " e \\ " SaleDate \\ " e \\ " , \\ " e \\ " totalsale \\ " & vbCr
Set xlApp = CreateObject ( \\ " Excel.Application \\ " )
xlapp.Workbooks.Add r = 1 : c = 1
xlapp.ActiveSheet.Cells (r , c) = st
r = 2 < br /> st = \\ " \\ "
Do While Not recs.EOF
st = st & RECS ! [ game ] & \\ " , \\ " & _ < ; ! br /> recs [ SaleDate ] & \\ " , \\ " & recs [ totalsale ] & vbCr
xlapp.ActiveSheet.Cells (r , c) = st
; recs.MoveNext
r = r + 1
st = \\ " \\ "
recs.Close loop : curdb.Close
, xlapp.ActiveWorkbook.SaveAs ( \\ "c: \\ \\ accessquery.xls \\ " )
xlapp.Quit
End Sub
8
Fare clic su \\ " Strumenti \\ " e scegli \\ "Riferimenti \\", quindi selezionare la casella di controllo \\ "Microsoft Excel Objects \\ ", così la macro in grado di riconoscere le funzioni che Excel mette a disposizione.
Pagina 9
eseguire la macro , posizionare il cursore in qualsiasi parte del sottoprogramma sendToExcel e premendo \\
10
Fare doppio clic sul file \\ "c" F5 \\ ". : \\ \\ accessquery.xls \\ " da Windows Explorer, e notare i risultati della query in Microsoft Excel quando si apre.
software © www.354353.com