|
Savoir comment exécuter structurés déclarations du langage de requête contre une feuille de calcul Excel peut être utile . Microsoft Excel est un tableur inclus dans la suite Microsoft Office . SQL est principalement utilisé dans les bases de données relationnelles , mais peut aussi être utilisé pour lire une feuille de calcul Excel. Visual Basic pour Applications ( VBA) est utilisé pour automatiser des tâches de routine dans les applications Microsoft Office. En quelques étapes, vous pouvez écrire du code VBA pour exécuter une instruction SQL et lire des données enregistrées dans une feuille de calcul Excel. Choses que vous devez
Microsoft Office Access 2007
Microsoft Office Excel 2007
Voir Plus Instructions
1 Démarrez Microsoft Excel 2007 et tapez " Column1 " à " A1 "," Column2 " dans " B1 ".
type " A " à " A2 " ," B " à " A3 " ," C " à " A4 " ," D " à " A5 ".
type "1" en "B2" , "2" à "B3" , "3" en "B4" , "4" dans " B5 ".
Enregistrez votre feuille de calcul pour " C : . \\ "comme " Book1.xls "
2 Démarrer Microsoft office Access 2007 , puis cliquez sur " Base de données vide ", puis sélectionner " Créer ". Cliquez sur " Database Tools " puis sélectionnez " Visual Basic ". Cliquez sur le champ "Insérer" et sélectionner "Module ".
3 Tapez la commande suivante pour créer le sous-programme " runSQLExcel ":
Private Sub runSQLExcel ()
Appuyez sur " Entrée".
4 Tapez la commande suivante pour définir vos variables :
Const adOStatic = 3
Const adLkOpt = 3
< p> Const adCmdString = & H1
5 Tapez la commande suivante pour définir et ouvrir des connexions à la feuille de calcul Excel :
Set objectConn = CreateObject (" ADODB.Connection " ) < br > Set objectRst = CreateObject (" ADODB.Recordset " )
objectConn.Open "Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = C : \\ Book1.xls ; "& _
" Extended Properties = "" Excel 8.0 ; HDR = Yes ; ""; "
6 Tapez la commande suivante pour exécuter un SQL déclaration et d'ouvrir un nouveau jeu d'enregistrements :
objectRst.Open "SELECT * FROM [ Feuil1 $] ", _
objectConn , adOStatic , adLkOpt , adCmdString
7 tapez la commande suivante pour parcourir votre jeu d'enregistrements et afficher les résultats pour les deux colonnes dans votre feuille de calcul :
Do Until objectRst.EOF
MsgBox " Colum1 :" & objectRst.Fields.Item ( ». Column1 " ) Valeur & "" & _
" Colum2 : . " & objectRst.Fields.Item ( " Column2 " ) Valeur
objectRst.MoveNext
Boucle
Appuyez sur " F5 " pour exécuter votre routine .
|
