Importera resultat från en Microsoft Access-frågan i Excel kan göras på flera sätt , bland annat en metod att använda dynamiska länkar , för användare av Excel 2007 eller senare . Användare av Excel 2003 eller tidigare kan slutföra importen genom att använda en Access- makro som fungerar med Microsoft Office automation objekt . Saker du behöver
Microsoft Excel och Access , version 2003 eller senare
Visa fler instruktioner
1
Open Access och skapa följande tabell för exempeldata , som har fält namn i den översta raden . Klicka \\ " Skapa > Tabell \\ " för att skapa tabellen .
Spel , saledate , totalsale
skalvet , 12/1/2009 , $ 6,01
skalvet , 12/3/2009 , $ 7,98
guitar hero , 2009/12/05 , $ 4,98
guitar hero , 12/6/2009 , $ 5,98
< ; br /> Spara tabellen ( genom att trycka på \\ " kontroll - s \\ " ) med namnet \\ " spel \\ ".
2
Skapa en ny fråga för bordsspel genom att klicka på \\ " Skapa > Query Design , \\ " högerklicka på \\ " Fråga1 \\ " text i frågans fliken , och klicka på \\ " SQL View . \\ "
Ange följande uttalande i SQL-koden fönstret : .
välj Spel * INTO myqueryres
från spel
WHERE ( ( ( games. game ) Liksom ' * tjära * ' ) )
GO
Spara frågan ( genom pressnig \\ " kontroll - s \\ " ) som \\ " myquery . \\ " Addera 3
Kör frågan genom att dubbelklicka på \\ " myquery \\ " i navigeringsfönstret , stäng sedan Access och öppna Microsoft Excel .
4
Klicka \\ " Data \\ " och välj \\ " Från Access. \\ " i \\ " Välj datakälla \\ " i dialogrutan öppna Access-databasen du skapade bordsspel i. Markera tabellen \\ " myqueryres \\ " från \\ " Select table \\ " i dialogrutan och tryck sedan på \\ " OK \\ " på \\ " Importera Data \\ " i dialogrutan . Observera att Excel har importerat frågan .
5
Stäng Excel , minnas filnamnet när du sparar filen . Re - Open Access. Revidera \\ " myquery \\ " i \\ " SQL \\ " enligt följande : .
Välj Spel * INTO myqueryres
från spel
WHERE ( ( ( games.game ) Gilla ' * ua * ' ) ) ;
6
Spara och kör frågan , stäng sedan Access och åter öppna Excel -filen du skapade tabellen länk i. Välj \\ " Data \\ " och välj \\ " Anslutningar , \\ " tryck sedan på \\ " Refresh \\ " i \\ " Arbetsboksanslutningar \\ " i dialogrutan . Stäng dialogrutan och märker att frågeresultatet har förändrats .
7
( För användare av Excel 2003 ) Utför steg 1 och 2 . Run \\ " myquery , \\ " och tryck sedan på \\ " alt \\ " + \\ " F11 \\ " för att gå in i Visual Basic integrerad utvecklingsmiljö ( IDE ) . Tryck \\ " Infoga \\ " och välj \\ " modulen \\ " sedan klistra in följande programkod i den nya koden fönster :
Public Sub sendToExcel ( )
'' '' '' '' '' '' '' '' '' '' '' '' '
Set curdb = CurrentDb < ; br /> Ställ recs = curdb.OpenRecordset ( \\ " myqueryres \\ " )
st = \\ " spel \\ " & \\ " , \\ " & \\ " saledate \\ " & \\ " , \\ " & \\ " totalsale \\ " & vbCr
Set xlApp = CreateObject ( \\ " Excel.Application \\ " )
xlapp.Workbooks.Add
r = 1 : c = 1
xlapp.ActiveSheet.Cells (r, c ) = m
r = 2
st = \\ " \\ "
Gör Medan Inte recs.EOF
st = st & recs ! [ spel ] & \\ " , \\ " & _ < ; ! br /> recs [ saledate ] & \\ " , \\ " & recs [ totalsale ] & vbCr
xlapp.ActiveSheet.Cells ( r , c ) = m
; recs.MoveNext
r = r + 1
st = \\ " \\ "
Loop
recs.Close : curdb.Close
; xlapp.ActiveWorkbook.SaveAs ( \\ " c : \\ \\ accessquery.xls \\ " )
xlapp.Quit
End Sub
8
Klicka \\ " Verktyg \\ " och välj \\ "Referenser , \\ " kontrollera sedan kryssrutan \\ " Microsoft Excel Objects \\ " så ditt makro kan känna igen de funktioner som Excel gör tillgängliga .
9
Kör makrot genom att placera markören någonstans i sendToExcel subrutinen och trycka \\
10
Dubbelklicka på filen \\ " c " F5 \\ . " : \\ \\ accessquery.xls \\ " från Windows Explorer , och märker frågans resultat i Microsoft Excel när den öppnar .
