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
Const adCmdString = & H1
5
digitare quanto segue per definire e aprire collegamenti al foglio di calcolo Excel :
objectConn = CreateObject ( " ADODB.Connection " )
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
loop
Premere " F5 " per eseguire la subroutine .
software © www.354353.com