Å ha kunnskap til å sende parametre fra Microsoft Excel til en spørring i Microsoft Office Access kan gjøre databaseprogrammet mer dynamisk . Excel er et regnearkprogram som ofte brukes til å lagre og analysere store mengder data . Access er en relasjonsdatabase styringssystem brukes til å designe lokale databaser . Visual Basic for Applications ( VBA ) er et programmeringsspråk som brukes til å automatisere rutineoppgaver som passerer parametere fra Excel til Access . En spørring brukes til å hente informasjon fra databasen tabeller . Du trenger
Microsoft Office Access
Microsoft Office Excel
Vis flere instruksjoner
en

Åpen Microsoft Office Excel , type " en " i "A1" , "2" i " B1 " og "3" i " C1 ". Lagre arbeidsboken som " myExceldata " i "C : \\" .
2

start Microsoft Office Access , velg "Bland database " klikk " Opprett". Velg " Database Verktøy"- menyen og klikk " Visual Basic. " Klikk på " Insert"-menyen og velg " Module ".
3

Klikk på " Verktøy "-menyen , velg "Referanser ", og merk av for "Microsoft Excel ; Object Library " . Klikk "OK".
4

Kopier og lim inn følgende VBA -kode for å åpne " myExceldata " arbeidsbok . Du vil bruke verdien i " B1 " som parameter til spørringen data fra " dbAccessTable " tabell som er opprettet og vise beskrivelsen gjennom en meldingsboks.

Private Sub passExcelParamenters ()

Dim strSQL som String

Dim dBS som Database

Dim rst som Recordset

Dim XLSPar As Integer

Dim XLSApp som Excel.Application

Dim XLXBook Som Excel.Workbook

Dim XLSSheet Som Excel.Worksheet

Set dBS = CurrentDb

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

Set XLSApp = XLXBook.Parent

Sett XLSSheet = XLXBook.Worksheets ( " Ark1 ")
p Med XLSSheet

. Range (" B1 ") . Velg

XLSPar = Selection.Value

End With

XLXBook.Close

strSQL =" CREATE TABLE dbAccessTable ( Prod_ID NUMMER , 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 )"
< p> strSQL = strSQL & " VALUES ( 2 ​​, ' Trucks '); "

DoCmd.RunSQL ( strSQL )

sqlStr = "SELECT dbAccessTable.Prod_ID , dbAccessTable.Prodct "

sqlStr = sqlStr & " FROM dbAccessTable "

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

Set rst = dbs.OpenRecordset ( sqlStr )

rst.MoveLast

rst.MoveFirst

MsgBox " beskrivelsen for produkt-ID i B1 er " & rst . Fields ( 1 ) . Verdi

rst.Close

dbs.Close

End Sub
5

Trykk " F5 " for å kjøre subrutine .