Hur man klarar av parametrar från Excel till Microsoft Query

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