har viden til at overføre parametre fra Microsoft Excel til en forespørgsel i Microsoft Office Access kan gøre din database ansøgning mere dynamisk. Excel er et regnearksprogram ofte bruges til at gemme og analysere store mængder data . Access er en relationel database management system, der anvendes til at designe lokale databaser . Visual Basic for Applications ( VBA ) er en computer programmeringssprog, der anvendes til at automatisere rutineopgaver såsom videregive parametre fra Excel til Access . En forespørgsel bruges til at hente information fra databasetabeller. Ting du skal
Microsoft Office Access
Microsoft Office Excel
Vis Flere Instruktioner
1

Open Microsoft Office Excel , skriv " 1" i "A1" , "2" i " B1 " , og "3" i "C1 ". Gem projektmappen som " myExceldata " i " C: \\ " .
2

Start Microsoft Office Access , Vælg "Bland database " og derefter klikke på "Opret ". Vælg " Database Tools " menuen og klik på " Visual Basic ". Klik på " Indsæt" menuen og vælg " Modul ".
3

Klik på menuen "Funktioner" , vælg " Referencer ", og marker afkrydsningsfeltet ved siden af ​​" Microsoft Excel , Object Library " . Klik på "OK".
4

Kopier og indsæt følgende VBA-kode til at åbne " myExceldata " projektmappe. Du skal bruge værdien i " B1 " som parameter til forespørgslen data fra " dbAccessTable " skabt bordet og vise beskrivelse via en besked boks .

Private Sub passExcelParamenters ()

Dim strSQL As 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 ( Skabelon: = "G : \\ myExcelData . xlsx " )

Set XLSApp = XLXBook.Parent

Set XLSSheet = XLXBook.Worksheets ( " Ark1 " )

Med XLSSheet

. Range (" B1 "). Vælg

XLSPar = Selection.Value

End With

XLXBook.Close

strSQL =" CREATE TABLE dbAccessTable ( prod_id NUMBER , prodct TEXT ) "

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 " < br >

sqlStr = sqlStr & " FROM dbAccessTable "

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

Set rst = dbs.OpenRecordset ( sqlStr )

rst.MoveLast

rst.MoveFirst

MsgBox " beskrivelse af produkt-id i B1 er " & rst . Fields ( 1). Value

rst.Close

dbs.Close

End Sub
5

Tryk på " F5 " for at køre din underprogram.