Open Access en maak de volgende tabel van sample data , welk veld heeft namen in de bovenste rij . Klik op \\ "Create > Table \\ " om de tabel te maken .

Spel , Verkoopdatum , totalsale
aardbeving , 2009/12/01 , $ 6,01 < br /> beving , 2009/12/03 , $ 7,98
guitar hero , 2009/12/05 , $ 4,98
guitar hero , 2009/12/06 , $ 5,98
< , br /> Sla de tabel ( door op \\ " controle - s \\ " ) met de naam \\ "games \\ . ' kopen van 2

Maak een nieuwe query voor de tafelspelen door te klikken op \\ " Start > Query Design, \\ " rechts - klikken op de " Query1 \\ " tekst in het tabblad van de query \\ , en klikken \\ " SQL View . \\ "
< br /> Voer de volgende verklaring in het venster SQL- code : .

SELECT spelletjes * INTO myqueryres
vAN spelletjes
WHERE ( ( ( games. spel ) Like ' * tar * ' ) )
GO

Sla de query ( door pressnig \\ " controle - s \\ " ) als \\ " myQuery . \\ "
3

de query uitvoeren door te dubbelklikken op \\ " myQuery \\ " in het navigatievenster , sluit Access en open Microsoft Excel .
4

Klik \\ " data \\ " en kies \\ " Van Access . \\ " In de \\ " Gegevensbron selecteren \\ " dialoogvenster opent u de Access-database u de tabel games gemaakt inch Selecteer de tabel \\ " myqueryres \\ " uit het \\ "Select tafel \\ " dialoogvenster , druk dan op \\ " OK \\ " op de \\ " gegevens importeren \\ " dialoogvenster . Merk op dat Excel de query .

Sluiten Excel 5 , heeft geïmporteerd onthouden van de bestandsnaam wanneer u het bestand opslaat . Re - geopend Access . Herzien \\ " myQuery \\ " in \\ " SQL View \\ " te luiden als volgt : .

SELECT spelletjes * INTO myqueryres
Uit Games < br /> WHERE ( ( ( games.game ) Like " * rE * " ) ) ;
6

Opslaan en opnieuw uitvoeren van de query , sluit Access en heropen het Excel-bestand dat u hebt gemaakt de tafel koppeling inch Select \\ " data \\ " en kies \\ " Connections , \\ " en druk dan op de \\ " Refresh \\ " knop in de \\ " Werkmapverbindingen \\ " dialoogvenster . Sluit het dialoogvenster en merk op dat de resultaten van de query zijn veranderd .
7

( Voor gebruikers van Excel 2003 ) Volg stap 1 en 2 . Run \\ " myQuery , \\ " en druk op \\ " alt \\ " + \\ " F11 \\ " om de Visual Basic geïntegreerde ontwikkelomgeving ( IDE ) in te voeren . Druk op \\ " Insert \\ " en selecteer \\ " Module , \\ " dan is de volgende programmacode plakken in het nieuwe venster code :


Public Sub sendToExcel ( )

'''''''' '''''''' '''''''' '
Set curdb = CurrentDb < , br /> Stel opn = curdb.OpenRecordset ( \\ " myqueryres \\ " )
st = \\ "game \\ " en \\ " , \\ " en \\ " Verkoopdatum \\ " en \\ " , \\ " en \\ " totalsale \\ " & vbCr

Set xlApp = CreateObject ( \\ " Excel.Application \\ " )
xlapp.Workbooks.Add
r = 1 : c = 1
xlapp.ActiveSheet.Cells ( r , c ) = st
r = 2 < br /> st = \\ " \\ "
Weet Terwijl Niet recs.EOF
st = st & recs ! [ spel ] & \\ " , \\ " & _ < ; ! br /> opn [ Verkoopdatum ] & \\ " , \\ " & recs [ totalsale ] & vbCr
xlapp.ActiveSheet.Cells ( r , c ) = st
; recs.MoveNext
r = r + 1
st = \\ " \\ "
Loop
recs.Close : curdb.Close
, xlapp.ActiveWorkbook.SaveAs ( \\ " c: \\ \\ accessquery.xls \\ " )
xlapp.Quit

End Sub
8

Klik op \\ 'Extra \\ ' en kies \\ " Referenties , \\ " check dan het selectievakje met de naam \\ " Microsoft Excel Objects \\ " zodat je de macro functies kunnen erkennen dat Excel ter beschikking stelt . < br >
9

Run je macro door de cursor ergens in het sendToExcel subroutine en drukken \\
10

Dubbelklik op het bestand \\ " c" F5 \\ . " : \\ \\ accessquery.xls \\ " vanuit Windows Verkenner , en ziet de resultaten van de query 's in Microsoft Excel wanneer het wordt geopend .