Cómo ejecutar una instrucción SQL en una hoja de cálculo Excel

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 ")

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 .