Weten hoe Structured Query Language statements tegen een Excel-spreadsheet voeren kan waardevol zijn . Microsoft Excel is een spreadsheet-applicatie opgenomen in de Microsoft Office suite . SQL wordt voornamelijk gebruikt in relationele databases , maar kan ook worden gebruikt om een Excel spreadsheet lezen . Visual Basic for Applications ( VBA ) wordt gebruikt om routinetaken te automatiseren binnen de Microsoft Office -toepassingen . In een paar stappen kunt u VBA-code schrijven om een SQL- instructie uit te voeren en data te lezen die zijn opgeslagen in een Excel-spreadsheet . Wat je nodig hebt
Microsoft Office Access 2007
Microsoft Office Excel 2007
Toon Meer Aanwijzingen
Start Microsoft Excel 2007 en type " Kolom1 " in " A1 1 " , " Column2 "in" B1 ". Type Nieuws" A " in " A2 " , " B " in " A3 " , " C "in" A4 " , " D "in" A5 . " < br Type > " 1 " in " B2 " , " 2 " in " B3 " , " 3 " in " B4 " , " 4 " in " B5 . "
Bewaar uw spreadsheet naar " C : . \\ " als " Book1.xls " kopen van 2 Start Microsoft Office Access 2007 en klik op" Lege database , " selecteer " Create " . Klik op " Database Tools" en selecteer " Visual Basic . " Klik op het veld " Insert " en selecteer " Module . "
Type 3 het volgende aan de " runSQLExcel " subroutine maken: Private Sub
runSQLExcel ( ) op Twitter Druk op ' Enter '.
Type 4 het volgende om uw variabelen te definiëren :
Const adOStatic = 3
Const adLkOpt = 3
Const adCmdString = & H1
5 Typ het volgende om verbindingen te definiëren en te openen voor de Excel-spreadsheet :
Set objectConn = CreateObject ( " ADODB.Connection " ) < br > Set objectRst = CreateObject ( " ADODB.Recordset " ) objectConn.Open " Provider = Microsoft.Jet.OLEDB.4.0 ; "
& _ " data Source
= C : \\ Book1.xls ; " & _
" Uitgebreide eigenschappen = " " Excel 8.0 ; HDR = Yes ; " " ; "
Type 6 het volgende om een SQL- run verklaring en open een nieuw record set : objectRst.Open "SELECT * FROM [ Sheet1 $ ] "
, _ objectConn
, adOStatic , adLkOpt , adCmdString
7 typ het volgende om lus door uw Recordset en weergave resultaten voor zowel de kolommen in uw spreadsheet :
Doe tot objectRst.EOF
MsgBox " Colum1 : " & objectRst.Fields.Item ( . " Kolom1 " ) Value & " " & _
" Colum2 : . " & objectRst.Fields.Item ( " Kolom2 " ) Value
objectRst.MoveNext
Loop Druk op " F5 "
uw subroutine draaien .
|
