Open Microsoft Office Excel , typ " 1 " in " A1 " , " 2 " in " B1 " en " 3 " in " C1 ". Sla de werkmap als ' myExceldata " in " C : \\ " . Kopen van 2

Start Microsoft Office Access , Selecteer " Bland -database " en klik op " Create . " Selecteer het menu " Hulpmiddelen voor databases " en klik op " Visual Basic . " Klik op het menu "Invoegen " en selecteer " Module . "
3

Klik op het menu "Extra " , selecteer " Referenties , " en vink het vakje naast " Microsoft Excel , Object Library " . Klik op "OK . "

Kopieer 4 en plak de volgende VBA- code om de " myExceldata " werkmap opent . U zal de waarde gebruiken in " B1 " als parameter op te vragen gegevens van de " dbAccessTable " tafel gemaakt en geven de beschrijving door middel van een bericht .

Private Sub passExcelParamenters
( )

Dim strSQL
As String

Dim dbs als Database

Dim rst
als Recordset

Dim XLSPar
als Geheel

Dim XLSApp
zoals Excel.Application

Dim XLXBook Zoals Excel.Workbook

Dim XLSSheet
Zoals Excel.Worksheet

Set
dbs = CurrentDb

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

Set XLSApp = XLXBook.Parent

Stel XLSSheet = XLXBook.Worksheets (
" Blad1 " ) op p Met XLSSheet

. Range ( " B1 " ) . Selecteer

XLSPar = Selection.Value

End
Met

XLXBook.Close

strSQL
= " CREATE TABLE dbAccessTable ( Prod_ID NUMBER , Prodct TEKST ) ; "

DoCmd.SetWarnings
False

DoCmd.RunSQL ( strSQL )

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

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

DoCmd.RunSQL ( strSQL )

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

strSQL = strSQL & " VALUES ( 2 ​​, ' Trucks ' ) ; "

DoCmd.RunSQL
( strSQL ) op

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

sqlstr = sqlstr & " FROM dbAccessTable "

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

Set rst = dbs.OpenRecordset ( sqlstr )

rst.MoveLast

rst.MoveFirst

MsgBox
" De beschrijving van product-ID in B1 is " & rst . Velden ( 1 ) . Value

rst.Close

dbs.Close

End Sub

Druk op " F5 "
5 aan uw run subroutine .