Vide hvordan man kan udføre Structured Query Language udtalelser mod et Excel-regneark kan være værdifulde. Microsoft Excel er et regnearksprogram inkluderet i Microsoft Office-pakken. SQL anvendes hovedsageligt i relationelle databaser , men kan også bruges til at læse et Excel-regneark . Visual Basic for Applications ( VBA ) bruges til at automatisere rutineopgaver inden for de Microsoft Office-programmer . I et par trin, du kan skrive VBA-kode til at udføre en SQL-sætning og læse data gemt i et Excel-regneark . Ting du skal
Microsoft Office Access 2007
Microsoft Office Excel 2007
Vis Flere Instruktioner
1
Start Microsoft Excel 2007 og skriv " Kolonne1 " i " A1 "," COLUMN2 "i" B1 ".
Type" A "i" A2 "," B "i" A3 "," C "i" A4 "," D "i" A5 ". < br >
Type " 1 " i " B2 ", "2 " i " B3 ", " 3 " i " B4 ", " 4 " i " B5 ".
Gem dit regneark til "C : . \\ "som " Projekt1.xls "
2
Start Microsoft Office Access 2007 og klik på" Tom database "og derefter vælge " Opret " . Klik på " Database Tools" og vælg " Visual Basic ". Klik på "Indsæt "-feltet og vælg " Modul ".
3
Skriv følgende for at skabe den " runSQLExcel " subrutine :
Private Sub runSQLExcel ()
Tryk på " Enter".
4
Skriv følgende for at definere dine variabler : Hej
Const adOStatic = 3 fotos
Const adLkOpt = 3 fotos < p> Const adCmdString = & H1
5
Skriv følgende for at definere og åbne forbindelser til Excel regneark : Hej
Set objectConn = CreateObject ( " ADODB.Connection " ) < br >
Set objectRst = CreateObject ( " ADODB.Recordset " )
objectConn.Open " Provider = Microsoft.Jet.OLEDB.4.0 ; " & _
"Data Source = C : \\ Projekt1.xls ; "& _
" Extended Properties = "" Excel 8.0; HDR = Yes , " ", "
6
Skriv følgende for at køre en SQL redegørelse og åbne en ny Recordset : Hej
objectRst.Open "SELECT * FROM [ Ark1 $ ]" _
objectConn , adOStatic , adLkOpt , adCmdString
7
Skriv følgende for at sløjfe gennem din Recordset og vise resultater for begge kolonner i dit regneark : Hej
Gør Indtil objectRst.EOF
MsgBox " Colum1 : " & objectRst.Fields.Item ( ". Kolonne1 " ) Value & "" & _
" Colum2 : . " & objectRst.Fields.Item ( " COLUMN2 " ) Value
objectRst.MoveNext
< p> Loop
Tryk på " F5 " for at køre din subrutine .
