ha kunskap för att skicka parametrar från Microsoft Excel till en fråga i Microsoft Office Access kan göra din databas ansökan mer dynamisk . Excel är ett kalkylprogram som ofta används för att lagra och analysera stora mängder data . Access är en relationsdatabas management system som används för att utforma lokala databaser . Visual Basic for Applications ( VBA ) är en dator programmeringsspråk som används för att automatisera rutinuppgifter som att skicka parametrar från Excel till Access . En fråga används för att hämta information från databastabeller. Saker du behöver
Microsoft Office Access
Microsoft Office Excel
Visa fler instruktioner
1
Öppna Microsoft Office Excel , typ " 1 " i " A1 " , " 2 " under " B1 " , och " 3 " i " C1 ". Spara arbetsboken som " myExceldata " i " C : \\ " .
2
Starta Microsoft Office Access , Välj "Bland databas " och sedan klicka på " Skapa ". Välj " Database Tools " -menyn och klicka på " Visual Basic . " Klicka på " Infoga " -menyn och välj " Modul . " Addera 3
Klicka på " Verktyg " -menyn , välj "Referenser , " och markera rutan bredvid " Microsoft Excel , Object Library " . Klicka på " OK . "
4
Kopiera och klistra in följande VBA-kod för att öppna " myExceldata " arbetsbok . Du kommer att använda värdet i " B1 " som parameter att söka data från " dbAccessTable " skapade tabellen och visa beskrivningen genom en meddelanderuta .
Private Sub passExcelParamenters ( ) katalog
Dim strSQL As String
Dim dbs som databas
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 ( Mall : = " G : \\ myExcelData . xlsx " ) katalog
Set XLSApp = XLXBook.Parent
Set XLSSheet = XLXBook.Worksheets ( " Blad1 " ) katalog
XLSSheet
. Range ( " B1 " ) . Välj
XLSPar = Selection.Value
End With
XLXBook.Close
strSQL = " CREATE TABLE dbAccessTable ( Prod_ID NUMMER , prodct TEXT ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO dbAccessTable ( Prod_ID , prodct ) "
strSQL = strSQL & " VALUES ( 1 , ' Cars ' ) ; "
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO dbAccessTable ( Prod_ID , prodct ) "
strSQL = strSQL & " VALUES ( 2 , ' Trucks '); "
DoCmd.RunSQL ( strSQL ) katalog
sqlstr = " SELECT dbAccessTable.Prod_ID , dbAccessTable.Prodct "
sqlstr = sqlstr & " FROM dbAccessTable "
sqlstr = sqlstr & " WHERE ( ( ( dbAccessTable.Prod_ID ) = " & ( XLSPar ) & " ) ) ; "
Set rst = dbs.OpenRecordset ( sqlstr ) katalog
rst.MoveLast
rst.MoveFirst
MsgBox " beskrivningen för produkt-ID i B1 är " & rst . fält ( 1 ) . Value
rst.Close
dbs.Close
End Sub
5
Tryck " F5 " för att köra subrutin . Addera
