Tener los conocimientos necesarios para pasar parámetros desde Microsoft Excel a una consulta en Microsoft Office Access puede hacer que su aplicación de base de datos más dinámico. Excel es una aplicación de hoja de cálculo a menudo se utiliza para almacenar y analizar grandes cantidades de datos. El acceso es un sistema de gestión de base de datos relacional utilizada para diseñar bases de datos locales . Visual Basic para Aplicaciones ( VBA) es un lenguaje de programación utilizado para automatizar tareas rutinarias, como pasar parámetros desde Excel a Access. Una consulta se utiliza para recuperar información de las tablas de bases de datos . Cosas que necesitará
Microsoft Office Access
Microsoft Office Excel
Ver Más instrucciones
1

Abra Microsoft Office Excel , escriba " 1 " en " A1" , " 2 " en " B1" y " 3 " en " C1 ". Guarde el libro como " myExceldata " en " C: \\ " .
2

Inicio Microsoft Office Access , seleccione "Base de datos de Bland ", luego haga clic en " Crear". Seleccione el menú " Herramientas de base de datos" y haga clic en "Visual Basic ". Haga clic en el menú " Insertar" y seleccione " Módulo ".

3 Haga clic en el menú " Herramientas ", seleccione "Referencias ", y marque la casilla junto a " 4

Copia y pega el siguiente código VBA para abrir el libro " myExceldata " . Usted usará el valor en "B1 " como parámetro para consultar datos de la tabla " dbAccessTable " creado y mostrar la descripción a través de un cuadro de mensaje.

PassExcelParamenters Private Sub ( ) guía

Dim strSQL As String Dim dbs

como base de datos

rst As Recordset

XLSPar Dim As Integer

XLSApp As Excel.Application

XLXBook As Excel.Workbook

XLSSheet As Excel.Worksheet

Set dbs = CurrentDb

Set XLXBook = Workbooks.Add (Plantilla : = " G: \\ myExcelData . xlsx " )

Set XLSApp = XLXBook.Parent

Set XLSSheet = XLXBook.Worksheets ( " Sheet1 " )

XLSSheet

. Range (" B1 " ) . Seleccione

XLSPar = Selection.Value

extremo con

XLXBook.Close

strSQL =" CREATE TABLE dbAccessTable (NÚMERO prod_id , de Prodct TEXTO ) ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO dbAccessTable ( prod_id , de Prodct ) "

strSQL = strSQL & " VALUES ( 1 , ' Cars' ) ; "

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO dbAccessTable ( prod_id , de Prodct ) "
< p> strSQL = strSQL & " VALUES ( 2 , ' Trucks '); "

DoCmd.RunSQL ( strSQL )

sqlstr = "SELECT dbAccessTable.Prod_ID , dbAccessTable.Prodct " < br >

sqlstr = sqlstr y "FROM dbAccessTable "

sqlstr = sqlstr & " WHERE ( ( ( dbAccessTable.Prod_ID ) =" & ( XLSPar ) & " )); "

Set rst = dbs.OpenRecordset ( sqlstr )

rst.MoveLast

rst.MoveFirst

MsgBox " La descripción para la identificación del producto en B1 es" & rst . campos ( 1 ) . Valor

rst.Close

dbs.Close

End Sub
5

Press " F5 " para ejecutar su subrutina.