Microsoft Excel y Access, versión 2003 o posterior
Ver Más instrucciones
1
Open Access y crear la siguiente tabla de datos de la muestra , que tiene campo nombres en la fila superior . Haga clic en \\ " Crear> Tabla \\ " para crear la tabla .
Juego, SaleDate , VentaTotal
terremoto, 12/1/2009 , $ 6,01 < br /> sismo, 12/3/2009 , 7,98 dólares
héroe de la guitarra , 12/5/2009 , 4,98 dólares
héroe de la guitarra , 12/6/2009 , 5,98 dólares
< ; br /> Guardar la tabla ( pulsando \\ "control - s \\ " ) con el nombre \\ "juegos \\ ".
2
Crear una nueva consulta para la tabla de juegos haciendo clic en \\ " Crear> Diseño de consulta , \\ " haga clic en " Consulta1 \\ " text \\ en la ficha de la consulta, y haciendo clic en \\ " Vista SQL . \\ "
< br /> Introduzca la siguiente instrucción en la ventana de código SQL: .
SELECT juegos * eN myqueryres
Desde juegos WHERE ( ( ( games. juego ) Like ' * tar * '))
GO
Guarde la consulta ( por pressnig \\ "control - s \\") como \\ " myquery . \\ "
3
Ejecutar la consulta haciendo doble clic en \\ " myquery \\ "en el panel de navegación y, a continuación , cierre Access y abra Microsoft Excel.
4
click \\ " datos \\ " y seleccione \\ " del acceso . \\ " En el \\ " Seleccionar origen de datos \\ " cuadro de diálogo , abra la base de datos Access que creó la tabla de juegos pulg Seleccione la tabla \\ " myqueryres \\ " de la \\ "Seleccionar tabla \\ " cuadro de diálogo , y pulse \\ " Aceptar \\ " en el cuadro de diálogo \\ " Importar datos \\ " . Tenga en cuenta que Excel ha importado la consulta.
5
Cerrar Excel , recordando el nombre del archivo al guardar el archivo. Acceso Re - abierto. Revisar \\ " myquery \\" en \\ " Vista SQL \\ " de la siguiente manera : .
SELECT juegos * EN myqueryres
Desde juegos < br /> WHERE ( ( ( games.game ) Like ' * ua * ')) ;
6
Guardar y volver a ejecutar la consulta , a continuación, cierre Access y vuelva a abrir el archivo de Excel que creó el vínculo de la tabla pulg Seleccione \\ " Data \\ " y seleccione \\ "Conexiones , \\ " a continuación, pulse el botón \\ "Actualizar \\ " en el cuadro de diálogo \\ " Conexiones del libro \\ " . Cierre el cuadro de diálogo y observe que los resultados de la consulta han cambiado.
7
( Para los usuarios de Excel 2003 ) Complete los pasos 1 y 2. Run \\ " myquery , \\ " y pulse \\ "alt \\ " + \\ "F11 \\ " para entrar en el entorno de desarrollo integrado de Visual Basic ( IDE). Pulse \\ " \\" Insertar y seleccione \\ " del módulo, \\ " y luego pegar el siguiente código de programa en la nueva ventana de código:
Public Sub sendToExcel ()
'''''' '''''' '''''' '''''' '
Set curdb = CurrentDb < ; br /> Establecer recs = curdb.OpenRecordset ( \\ " myqueryres \\ ")
st = \\ "game \\ " y \\ " , \\ " y \\ " SaleDate \\ " y \\ " , \\ " y \\ " VentaTotal \\ "& vbCr
Set xlApp = CreateObject ( \\ " Excel.Application \\ ")
xlapp.Workbooks.Add r = 1 : c = 1
xlapp.ActiveSheet.Cells (r, c ) = st
r = 2 < br /> st = \\
Aunque no recs.EOF
st = st y recs ! [ juego ] y \\ " , \\ " & _ < ; ¡ br /> recs [ SaleDate ] y \\ " , \\" y recs [ VentaTotal ] y vbCr
xlapp.ActiveSheet.Cells (r, c ) = st
; recs.MoveNext
r = r + 1
st = \\
Loop recs.Close : curdb.Close
; xlapp.ActiveWorkbook.SaveAs ( \\ "c: \\ \\ accessquery.xls \\ ")
xlApp.Quit
End Sub
8
click \\ " Herramientas \\ " y seleccione \\ "Referencias \\", marque la casilla de verificación denominada \\ " Microsoft Excel Objects \\ " por lo que su macro puede reconocer las funciones que Excel pone a disposición .
Página 9
Ejecutar la macro colocando el cursor en cualquier lugar de la subrutina sendToExcel y presionando \\
10
Haga doble clic en el archivo \\ "c " F5 \\. ": \\ \\ accessquery.xls \\ " desde el Explorador de Windows y, a notar los resultados de la consulta en Microsoft Excel cuando se abre.