Avere la conoscenza per passare parametri da Microsoft Excel a una query in Microsoft Office Access può rendere l'applicazione di database più dinamico . Excel è un foglio di calcolo spesso usato per memorizzare e analizzare grandi quantità di dati . Access è un sistema di gestione di database relazionale utilizzato per la progettazione di database locali . Visual Basic, Applications Edition (VBA ) è un linguaggio di programmazione per computer utilizzato per automatizzare le attività di routine, come il passaggio di parametri da Excel ad Access. Una query viene utilizzato per recuperare informazioni da tabelle di database . Cose che ti serviranno
Microsoft Office Access
Microsoft Office Excel
Mostra più istruzioni
1

Aprire Microsoft Office Excel , digitare " 1 " a " A1 " , "2" a " B1 " e "3" in " C1 ". Salvare la cartella di lavoro come " myExceldata " in " C : \\ " .
2

Avviare Microsoft Office Access , selezionare "Database Bland " quindi fare clic su "Crea ". Selezionare il menu "Database Tools " e cliccate su " Visual Basic ". Fare clic sul menu "Inserisci" e selezionare " Modulo ".

3 Fare clic sul menu " Strumenti " , selezionare "Riferimenti ", e selezionare la casella accanto a " numero> Microsoft Excel 4

Copia e incolla il seguente codice VBA per aprire la cartella di lavoro " myExceldata " . Si utilizzerà il valore in " B1 " come parametro per eseguire query sui dati della tabella " dbAccessTable " creato e visualizzare la descrizione attraverso una finestra di messaggio .

PassExcelParamenters Private Sub ()

Dim strSQL As String

Dim dbs As Database Dim rst

come Recordset

Dim XLSPar As Integer Dim

XLSApp come Excel.Application

dim XLXBook Come Excel.Workbook

dim XLSSheet Come Excel.Worksheet

Set dbs = CurrentDb

XLXBook = Workbooks.Add ( Template : = " G : \\ myExcelData . xlsx " ) per

XLSApp = XLXBook.Parent

XLSSheet = XLXBook.Worksheets ( " Foglio1 " ) per

XLSSheet

. Range (" B1 " ) . Seleziona

XLSPar = Selection.Value

End With

XLXBook.Close

strSQL =" CREATE TABLE dbAccessTable ( NUMERO prod_id , Prodct TEXT) ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL ) per

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

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

DoCmd.RunSQL ( strSQL ) per

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

DoCmd.RunSQL ( strSQL ) per

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

sqlstr = sqlstr & "FROM dbAccessTable "

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

Set rst = dbs.OpenRecordset ( sqlstr ) per

rst.MoveLast

rst.MoveFirst

MsgBox " La descrizione per l'identificazione del prodotto in B1 è " & rst . campi ( 1) . Valore

rst.Close

dbs.Close

End Sub
5

Premere " F5 " per eseguire il subroutine .