Sapere come eseguire istruzioni Structured Query Language contro un foglio di calcolo Excel può essere prezioso . Microsoft Excel è un foglio di calcolo incluso nella suite di Microsoft Office . SQL è utilizzato principalmente nelle basi di dati relazionali , ma può anche essere utilizzato per leggere un foglio di calcolo di Excel . Visual Basic, Applications Edition (VBA ) viene utilizzato per automatizzare le attività di routine all'interno delle applicazioni Microsoft Office. In pochi passi è possibile scrivere codice VBA per eseguire un'istruzione SQL e leggere i dati salvati in un foglio di calcolo di Excel . Cose che ti serviranno
Microsoft Office Access 2007
Microsoft Office Excel 2007
Mostra più istruzioni
1

Avviare Microsoft Excel 2007 e digitare " Column1 " in " A1 " , " Colonna2 "in" B1 ".

Tipo" A " a " A2 " , " B "in" A3 " , " C "in" A4 " , " D "in" A5 ".

tipo " 1 " a " B2 " , "2" a " B3 " , "3" a " B4 " , "4" in " B5 ".

Salvare il foglio di calcolo a " C : . \\ "come " Book1.xls "
2

Avviare Microsoft Office Access 2007 e fare clic su " Database vuoto ", quindi selezionare " Crea " . Fare clic su "Strumenti database" e selezionare " Visual Basic ". Fare clic sul campo "Inserisci" e selezionare "Modulo ".
3

digitare quanto segue per creare il sottoprogramma " runSQLExcel " :

Private Sub runSQLExcel ( ) per

Premere " Invio".
4

Digitare quanto segue per definire le variabili :

Const adOStatic = 3

Const adLkOpt = 3
< p > Const adCmdString = & H1
5

digitare quanto segue per definire e aprire collegamenti al foglio di calcolo Excel :

objectConn = CreateObject ( " ADODB.Connection " ) < br >

objectRst = CreateObject ( " ADODB.Recordset " ) per objectConn.Open

"Provider = Microsoft.Jet.OLEDB.4.0; " & _

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

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

Digitare quanto segue per eseguire un SQL dichiarazione e aprire un nuovo Recordset :

objectRst.Open "SELECT * FROM [ Foglio1 $ ] " , _

objectConn , adOStatic , adLkOpt , adCmdString
7

digitare quanto segue al ciclo attraverso il vostro Recordset e visualizzare i risultati per entrambe le colonne del foglio di calcolo:

Do Until objectRst.EOF

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

" Colum2 : . " & objectRst.Fields.Item ( " Column2 " ) Valore

objectRst.MoveNext
< p > loop

Premere " F5 " per eseguire la subroutine .