Ako spustiť príkaz SQL proti tabuľky programu Excel

Vedieť , ako vykonávať Structured Query Language príkazy proti tabuľky programu Excel môžu byť cenné . Microsoft Excel je aplikácia tabuľkový súčasťou balíka Microsoft Office . SQL sa používa hlavne v relačnej databázy , ale môže byť tiež použitý na čítanie tabuľkového procesora Excel . Visual Basic for Applications ( VBA ) sa používa na automatizáciu rutinných úloh v rámci aplikácií balíka Microsoft Office . V niekoľkých krokoch môžete písať kód VBA na vykonanie príkazu SQL a čítať dáta uložené v tabuľke programu Excel . Veci , ktoré budete potrebovať v Microsoft Office Access 2007
Microsoft Office Excel 2007
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Excel 2007 a ​​zadajte " Sloupec1 " v " A1 " , " Sloupec2 " v " B1 " .

typu " A " na " A2 " , " B " v " A3 " , " C " na " A4 " , " D " v " A5 " .

zadajte " 1 " v " B2 " , " 2 " " B3 " , " 3 " " B4 " , " 4 " v " B5 " .

Uložte tabuľku na " C : \\ " ako " súboru Zošit1.xls "
2

spustite program Microsoft Office Access 2007 a ​​kliknite na tlačidlo " Prázdna databáza " , potom vyberte" Vytvoriť " .. Kliknite na " Databázové nástroje " a vyberte " Visual Basic " . Kliknite na " Vložiť " poľa a vyberte
3

Zadajte nasledujúci vytvoriť " runSQLExcel " podprogram " modul " . :

Private Sub runSQLExcel ( ) klipart

Stlačte tlačidlo " Enter " .
4

zadajte nasledujúce definovať premenné :

Const adOStatic = 3

Const adLkOpt = 3

Const adCmdString = & H1
5

Zadajte nasledujúce definovať a otvorených spojení k tabuľke programu Excel :

Set objectConn = CreateObject ( " ADODB.Connection " )

Nastaviť objectRst = CreateObject ( " ADODB.Recordset " )

objectConn.Open " Provider = microsoft.jet.oledb.4.0 , " & _

" Data Source = C : \\ Book1.xls ; " & _

" Extended Properties = " " Excel 8.0 ; HDR = Yes , " " , "
6

Zadajte nasledujúce spustiť SQL vyhlásení a otvoriť nové Recordset :

objectRst.Open " SELECT * FROM [ Hárok1 $ ] " , _

objectConn , adOStatic , adLkOpt , adCmdString
7

Zadajte nasledujúce prechádzať vaše záznamov a zobrazenie výsledkov oboch stĺpcov vo vašej tabuľke :

Do objectRst.EOF

MsgBox " Colum1 : " & objectRst.Fields.Item ( . " Sloupec1 " ) Value & " " & _

" Colum2 : . " a objectRst.Fields.Item ( " Sloupec2 " ) Hodnota

objectRst.MoveNext

Loop

Stlačte " F5 " spustiť podprogram .

• Predchádzajúca strana: Ako zdieľať & Upraviť Excel Dokumenty 
• Ďalšia strana: MS Works Kompatibilita s aplikáciou Excel 2007