Import av resultatene av en Microsoft Access spørring inn Excel kan gjøres på flere måter, blant annet en tilnærming ved hjelp av dynamiske koblinger, for brukere av Excel 2007 eller senere . Brukere av Excel 2003 eller tidligere kan fullføre importen ved å bruke en Access- makro som fungerer med Microsoft Office automatisering stedene. Du trenger
Microsoft Excel og Access, versjon 2003 eller senere
Vis flere instruksjoner
en

Open Access og lage følgende tabell over eksempeldataene, som har felt navnene i den øverste raden . Klikk \\ "Opprett > Table \\" for å opprette tabellen .

Spillet , saledate , totalsale
skjelvet , 12/1/2009 , $ 6,01
skjelvet , 12/3/2009 , $ 7,98
guitar hero , 12/5/2009 , $ 4,98
guitar hero , 12/6/2009 , 5,98 $
< ; br /> Lagre tabellen (ved å trykke \\ " kontroll - s \\ ") med navnet \\ "spill \\ ".
2

Opprett en ny spørring for spill tabellen ved å klikke på \\ "Opprett > Query Design, \\" høyre - klikke på \\ " Query1 \\" tekst i søket fane , og klikke på \\ "SQL View. \\"
< br /> Skriv inn følgende setning i SQL-kode vinduet: .

SELECT spill * INTO myqueryres
FRA spill
WHERE ( ( ( games. spillet ) Liker '* tjære * ') )
GO

Lagre spørringen ( ved pressnig \\ " kontroll - s \\ ") som \\ " myquery . \\ "
3

Kjør spørringen ved å dobbeltklikke \\" ​​myquery \\ " i navigasjonsruten , og deretter nær tilgang og åpne Microsoft Excel.
4

Klikk \\ "Data \\ " og velg \\ " Fra Access. \\" i \\ " Velg datakilde \\ " i dialogboksen , åpner du Access-databasen du opprettet spillene tabellen i. Velg tabellen \\ " myqueryres \\ " fra \\ "Velg tabellen \\ " i dialogboksen, og trykk deretter på \\ " OK \\" på \\ " Importer data \\ " i dialogboksen . Legg merke til at Excel har importert spørringen .
5

Close Excel , huske filnavnet når du lagrer filen . Re -open Access. Revidere \\ " myquery \\" i \\ " SQL View \\" til å lyde som følger: .

SELECT spill * INTO myqueryres
FRA spill
WHERE ( ( ( games.game ) Liker '* ua * ' ));
6

Lagre og kjøre spørringen , så nær tilgang og åpne Excel-filen du opprettet tabellen koblingen i. Velg \\ "Data \\ " og velg \\ " Connections , \\" og trykk deretter på \\ " Refresh \\ "-knappen i \\ " arbeidsbok Connections \\ " i dialogboksen . Lukk dialogboksen og merker at spørringsresultatene har endret seg.
7

(For brukere av Excel 2003 ) Fullfør trinn 1 og 2 . Run \\ " myquery , \\" trykk \\ "alt \\ " + \\ "F11 \\" å gå inn i Visual Basic integrert utviklingsmiljø (IDE ) . Trykk \\ " Insert \\" og velg \\ "Module , \\ " og deretter lim følgende programkode inn den nye koden vindu :


offentlige Sub sendToExcel ( )

'' '' '' '' '' '' '' '' '' '' '' '' '
Set curdb = CurrentDb < ; br /> Sett rECS = curdb.OpenRecordset ( \\ " myqueryres \\ " )
st = \\ "game \\ " & \\ " , \\ " og \\ " saledate \\ " og \\" , \\ " og \\ " totalsale \\ "& vbCr

Set xlapp = CreateObject ( \\" Excel.Application \\ " )
xlapp.Workbooks.Add
r = 1 : c = 1
xlapp.ActiveSheet.Cells (r, c ) = st
r = 2
st = \\ "\\ "
gjøre mens Ikke recs.EOF
st = st & rECS ! [ game ] og \\ " , \\ " & _ < ; ! br /> rECS [ saledate ] og \\ " , \\" og 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

Klikk \\ " Tools \\ " og velg \\ " Referanser , \\" så sjekk boksen merket \\ "Microsoft Excel Objects \\ " slik at makroen kan kjenne funksjonene som Excel gjør tilgjengelig .

9

Kjør makroen ved å plassere markøren hvor som helst i sendToExcel subrutine og trykke \\
10

Dobbeltklikk på filen \\ "c " F5 \\ ". : \\ \\ accessquery.xls \\ "fra Windows Utforsker , og legge merke til den spørringen resultatene i Microsoft Excel når den åpnes.