Import resultaterne af en Microsoft Access forespørgsel i Excel kan gøres på flere måder , bl.a. en tilgang med dynamiske links , for brugere af Excel 2007 eller senere. Brugere af Excel 2003 eller tidligere kan fuldføre import ved hjælp af en Access-makro , der arbejder med Microsoft Office automation objekter. Ting du skal
Microsoft Excel og Access , version 2003 eller nyere
Vis Flere Instruktioner
1
Open Access og oprette følgende tabel eksempeldata , som har felt navne i den øverste række . Klik \\ "Opret > Tabel \\" for at oprette tabellen .
Spillet saledate , totalsale
quake , 12/1/2009 , $ 6,01 < br /> quake , 2009/12/03 , 7,98 dollar
guitar hero , 2009/12/05 , 4,98 dollar
guitar hero , 2009/12/06 , 5,98 dollar
< ; br /> Gem tabellen (ved at trykke \\ "kontrol - s \\ "), med navnet \\ "spil \\ ".
2
Opret en ny forespørgsel til spil tabellen ved at klikke på \\ "Opret > Query Design, \\ " højreklikke på \\ " forespørgsel1 \\ " tekst i forespørgslens fanen og klikke \\ " SQL View. \\ "
< br /> Indtast følgende i SQL -koden vinduet : .
SELECT spil * INTO myqueryres
fra Games
WHERE ((( games. game) Ligesom ' * tar * ' ) )
GO
Gem forespørgslen ( ved pressnig \\ "kontrol - s \\ ") som en \\ " myquery . \\ "
3
Kør forespørgslen ved at dobbeltklikke på \\ " myquery \\ "i navigationsruden , og luk derefter Access og åbne Microsoft Excel.
4
Klik \\ " data \\ " og vælg \\ "From Access. \\ " I \\ " Vælg datakilde \\ " dialogboksen , skal du åbne Access-database du oprettede spil tabellen i. Vælg tabellen \\ " myqueryres \\ " fra \\ " Select table \\ " dialogboksen , og tryk derefter på \\ " OK \\" på \\ " Importer data \\ " dialogboksen . Bemærk, at Excel har importeret forespørgslen.
5.
Luk Excel , huske filnavnet , når du gemmer filen. Re - open Access. Revider \\ " myquery \\" i \\ " SQL View \\ " som følger : .
SELECT spil * INTO myqueryres
fra Games < br /> WHERE ((( games.game ) Ligesom ' * ua * ' )),
6
Gem og re- kører forespørgslen , og luk derefter Adgang og genåbne Excel-fil , du oprettede table link i. Vælg \\ "Data \\ " og vælg \\ " Connections , \\ " og derefter trykke på \\ " Refresh \\ "-knappen i \\ " Workbook Connections \\ " dialogboksen . Luk dialogboksen og bemærk, at forespørgslen resultater har ændret sig.
7
( For brugere af Excel 2003) Komplette trin 1 og 2. . Run \\ " myquery , \\ " og tryk derefter på \\ "alt \\ " + \\ " F11 \\ " for at indtaste Visual Basic integrerede udviklingsmiljø (IDE) . Tryk \\ " Insert \\ " og vælg \\ " modul \\ " derefter indsætte følgende program kode i den nye kode vinduet :
Offentlige Sub sendToExcel ()
'''''''' '''''' '''''' '''' '
Set curdb = CurrentDb < ; br /> Indstil ministrene = curdb.OpenRecordset ( \\ " myqueryres \\ " )
st = \\ "game \\ " & \\ " , \\ " & \\ " saledate \\ "& \\ " , \\ "& \\ " totalsale \\ "& vbCr
Set xlapp = CreateObject ( \\ " Excel.Application \\ " )
xlapp.Workbooks.Add
r = 1 : c = 1
xlapp.ActiveSheet.Cells (r, c ) = st
r = 2 < br /> st = \\ "\\ "
Må Mens Ikke recs.EOF
st = st & REC ! [ game ] & \\ " , \\ " & _ < ; ! br /> REC [ saledate ] & \\ " , \\ " & REC [ 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 \\ "Funktioner \\ " og vælg \\ " Referencer \\ " så markere feltet som hedder \\ "Microsoft Excel Objects \\ ", så din makro kan genkende de funktioner, Excel stiller til rådighed. < br >
9
køre din makro ved at placere markøren et sted i sendToExcel subrutine og trykke \\
10
Dobbeltklik på filen \\ "c" F5 \\ ". : \\ \\ accessquery.xls \\ "fra Windows Stifinder, og bemærk forespørgslens resultater i Microsoft Excel , når den åbnes .