Saber cómo ejecutar sentencias de lenguaje estructurado de consultas contra una hoja de cálculo Excel puede ser valiosa . Microsoft Excel es una aplicación de hoja de cálculo incluido en la suite de Microsoft Office. SQL se utiliza principalmente en bases de datos relacionales , pero también se puede utilizar para leer una hoja de cálculo de Excel . Visual Basic para Aplicaciones ( VBA ) se utiliza para automatizar tareas rutinarias dentro de las aplicaciones de Microsoft Office . En pocos pasos se puede escribir código VBA para ejecutar una sentencia SQL y leer los datos guardados en una hoja de cálculo Excel. Cosas que necesitará
Microsoft Office Access 2007
Microsoft Office Excel 2007
Ver Más instrucciones
1
Inicie Microsoft Excel 2007 y escriba " Columna1 " en " A1 "," Columna2 "en" B1 ".
tipo" A "en" A2 " ," B "en" A3 " ," C "en" A4 " ," D "en" A5 ".
Tipo " 1 " en " B2 ", " 2 " en " B3 ", " 3 " en " B4 ", " 4 " en " B5 ".
Guardar la hoja de cálculo de "C : . \\ "como" Book1.xls "
2
Inicio Microsoft Office Access 2007 y haga clic en " Base de datos en blanco ", a continuación, seleccione " Crear ". Haga clic en "Herramientas de base de datos" y seleccione "Visual Basic ". Haga clic en el campo " Insertar" y seleccione " Módulo ".
3
Escriba lo siguiente para crear el subprograma " runSQLExcel ":
Private Sub runSQLExcel ()
Pulse " Enter".
4
Escriba lo siguiente para definir las variables :
Const adOStatic = 3
Const adLkOpt = 3
< p> Const adCmdString = & H1
5
Escriba lo siguiente para definir y abrir conexiones con la hoja de cálculo 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
Escriba lo siguiente para ejecutar un SQL declaración y abrir un nuevo conjunto de registros :
objectRst.Open "SELECT * FROM [ Hoja1 $] ", _
objectConn , adOStatic , adLkOpt , adCmdString
7
escriba lo siguiente para recorrer el conjunto de registros y mostrar los resultados de las dos columnas en la hoja de cálculo :
¿ hasta objectRst.EOF
MsgBox " Colum1 :" & objectRst.Fields.Item ( . " Columna1 " ) Valor & "" & _
" Colum2 : . " y objectRst.Fields.Item ( " Columna2 " ) Valor
objectRst.MoveNext
< p> Loop
Press "F5 " para ejecutar la subrutina .
