Veta hur man ska utföra Strukturerade uttalanden Query Language mot ett Excel-ark kan vara värdefullt . Microsoft Excel är ett kalkylprogram ingår i Microsoft Office-paketet . SQL används huvudsakligen i relationsdatabaser , men kan också användas för att läsa ett Excel-ark . Visual Basic for Applications ( VBA ) används för att automatisera rutinuppgifter inom Microsoft Office-program . I några steg du kan skriva VBA-kod för att exekvera en SQL-sats och läsa data som sparats i ett Excel-ark . Saker du behöver
Microsoft Office Access 2007 Review Microsoft Office Excel 2007
Visa fler instruktioner
1
Starta Microsoft Excel 2007 och typ " Kolumn1 " i " A1 " , " Kolumn2 " i " B1 . "
Type " A " i " A2 " , " B " i " A3 " , " C " i " A4 " , " D " i " A5 . "
Type " 1 " i " B2 " , " 2 " i " B3 " , " 3 " i " B4 " , " 4 " i " B5 . "
Spara ditt kalkylblad till " C : . \\ " som " Book1.xls "
2
Starta Microsoft Office Access 2007 och klicka på " Tom databas , " välj sedan " Skapa " . Klicka på " Databas Verktyg " och välj " Visual Basic . " Klicka på " Infoga "-fältet och välj " Modul . " Addera 3
Skriv följande för att skapa den " runSQLExcel " subrutin :
Private Sub runSQLExcel ( ) katalog
Tryck " Enter ".
4
Skriv följande för att definiera variabler :
Const adOStatic = 3 bilder
Const adLkOpt = 3 bilder
Const adCmdString = & H1
5
Skriv följande för att definiera och öppna anslutningar till Excel :
Set objectConn = CreateObject ( " ADODB.Connection " )
Set objectRst = CreateObject ( " ADODB.Recordset " ) katalog
objectConn.Open " Provider = Microsoft.Jet.OLEDB.4.0 , " & _
" Data Source = C : \\ Book1.xls , "& _
" Utökade Egenskaper = " " Excel 8.0 , HDR = Ja , " " , "
6
Skriv följande för att köra en SQL uttalande och öppna ett nytt Recordset :
objectRst.Open " SELECT * FROM [ Blad1 $ ] " , _
objectConn , adOStatic , adLkOpt , adCmdString
7
skriv följande för att slinga genom din Recordset och visa resultat för båda kolumnerna i kalkylbladet :
göra tills objectRst.EOF
MsgBox " Colum1 : " & objectRst.Fields.Item ( . " Kolumn1 " ) Value & " " & _
" Colum2 : . " & objectRst.Fields.Item ( " Kolumn2 " ) Value
objectRst.MoveNext
Loop
Tryck " F5 " för att köra din subrutin .
