Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
otvorený prístup a vytvoriť nasledujúcu tabuľku ukážkových dát z , ktorý má pole mená v hornom riadku . Kliknite na \\ " Vytvoriť > Tabuľka \\ " vytvoriť tabuľku .
Hru , Dátum predaja , totalsale
zemetrasenie , 12.1.2009 , 6,01 dolárov < br /> zemetrasenie , 12.3.2009 , 7,98 dolárov
guitar hero , 12.5.2009, 4,98 dolárov
guitar hero , 12.6.2009 , 5,98 dolárov
< ; " . hrách \\ " br /> Uložte tabuľku ( stlačením \\ " control - s \\ " ) s názvom \\
2
Vytvorte nový dotaz na stolné hry kliknutím na \\ " Create > Query design , \\ " pravým tlačidlom myši na \\ " Query1 \\ " textu na záložke dotazu a kliknutím na tlačidlo \\ " SQL View . \\ "
< br /> Zadajte nasledujúci príkaz v okne SQL kód :
SELECT * INTO hry myqueryres
z hry
WHERE ( ( ( games. . hra ) ako " * tar * " ) )
GO
Uložte dotaz ( podľa pressnig \\ " control - s \\ " ) ako \\ " myquery . \\ "
3
spustite dotaz poklepaním \\ " myquery \\ " v navigačnej table , potom zatvorte Access a otvorte Microsoft Excel .
4
Kliknite na \\ " data \\ " a zvoľte \\ " Z programu Access . \\ " V " \\ Select data Source " dialógovom okne \\ otvorte databázu programu Access , ktorý ste vytvorili tabuľku hier palcov Vyberte tabuľku \\ " myqueryres \\ " z \\ dialógovom okne " Tabuľka \\ Zvoľte " , potom stlačte tlačidlo \\ " OK \\ " v dialógovom okne \\ "Importovať dáta \\ " . Všimnite si , že program Excel doviezol na dotaz .
5
Zavrite Excel , spomenul si na názov súboru pri uložení súboru . Znovu otvorený prístup . Revidovať \\ " myquery \\ " na \\ " SQL View \\ " takto :
SELECT * INTO hry myqueryres
z hry < br /. > WHERE ( ( ( games.game ) ako " * ua * " ) ) ;
6
uložte a znovu spustite dotaz a potom zatvorte Access a znovu otvoriť Excel vám súbor vytvorený Tabuľka link in Select \\ " data \\ " a zvoľte \\ " Pripojenie , \\ " a potom stlačte tlačidlo \\ " Obnoviť \\ " v " Pripojenie zošita \\ " v dialógovom okne \\ . Zatvorte dialógové okno a Všimnite si , že výsledky dotazu zmenili .
7
( pre používateľov programu Excel 2003 ) Vykonajte kroky 1 a 2. Run \\ " myquery , \\ " a potom stlačte \\ "alt \\ " + \\ " F11 \\ " pre vstup do jazyka integrované vývojové prostredie ( IDE ) . Stlačením tlačidla \\ " Vložiť \\ " a vyberte \\ " Modul \\ " vložte nasledujúci kód programu do nového okna kód :
Public Sub sendToExcel ( )
'' '' '' '' '' '' '' '' '' '' '' '' '
Set curdb = CurrentDb < , br /> Nastavenie nahr = curdb.OpenRecordset ( \\ " myqueryres \\ " )
st = \\ " hry \\ " A \\ " , \\ " A \\ " Dátum predaja \\ " a \\ " , \\ " a \\ " totalsale \\ " a vbCr
Set oExcel = CreateObject ( \\ " Excel.Application \\ " )
xlapp.Workbooks.Add
r = 1 : c = 1
xlapp.ActiveSheet.Cells (r , c ) = st
r = 2 < br /> st = \\ " \\ "
robiť , keď nie je recs.EOF
st = st & RECS ! [ game ] & \\ " , \\ " & _ < ; ! ! br /> nahr [ Dátum predaja ] a \\ " , \\ " a nahr [ totalsale ] a 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
Kliknite na \\ " Nástroje \\ " a zvoľte \\ " odkazy \\ " a potom zaškrtnite políčko \\ " objektov Microsoft Excel \\ " , takže makrá možno rozpoznať funkcie , ktoré aplikácie Excel činí k dispozícii . < br " . F5 \\ " >
9
Spustenie makra umiestnením kurzora kdekoľvek v podprograme sendToExcel a stlačením tlačidla \\
10
Dvakrát kliknite na súbor \\ "c : \\ \\ accessquery.xls \\ " z Prieskumníka Windows , a všimnite si , výsledky dotazu v programe Microsoft Excel pri otvorení .
Copyright © počítačové znalosti Všetky práva vyhradené