Nachdem das Wissen um Parameter aus Microsoft Excel zu einer Abfrage in Microsoft Office Access-Pass können Sie Ihre Datenbank-Anwendung dynamischer. Excel ist ein Tabellenkalkulationsprogramm häufig zur Speicherung und Analyse großer Datenmengen. Access ist ein relationales Datenbank- Management-System verwendet, um lokale Datenbanken zu entwerfen. Visual Basic für Applikationen (VBA ) ist eine Programmiersprache verwendet, um Routineaufgaben wie die Übergabe von Parametern aus Excel in Access automatisieren. Eine Abfrage wird verwendet, um Informationen aus der Datenbank Tabellen abrufen . Things You
Microsoft Office Access
Microsoft Office Excel
brauchen anzeigen Weitere Anweisungen
1

Öffnen Sie Microsoft Office Excel , geben Sie "1" in "A1" , "2" in "B1" und "3 " in " C1 ". Speichern Sie die Arbeitsmappe als " myExceldata " in " C: \\" .
2

Starten Sie Microsoft Office Access , Wählen Sie " Bland Datenbank " klicken Sie dann auf " Erstellen". Wählen Sie den " Database Tools "-Menü und klicken Sie auf " Visual Basic ". Klicken Sie auf das Menü "Einfügen" und wählen Sie " Module".
3

Klicken Sie auf das Menü "Extras" , wählen Sie " Referenzen ", und aktivieren Sie das Kontrollkästchen neben " Microsoft Excel ; Object Library " . Klicken Sie auf " OK".
4

Kopieren Sie den folgenden VBA- Code, um das " myExceldata " Arbeitsmappe öffnen . Sie werden den Wert in "B1" verwenden als Parameter zur Abfrage von Daten aus dem " dbAccessTable " Tabelle erstellt und zeigt die Beschreibung durch eine Message-Box .

Private Sub passExcelParamenters () Dim strSQL

As String Dim dbs

As Database Dim rst

als Recordset

Dim XLSPar As Integer Dim

XLSApp wie Excel.Application

Dim XLXBook Wie Excel.Workbook

Dim XLSSheet Wie Excel.Worksheet

Set dbs = CurrentDb

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

Set XLSApp = XLXBook.Parent

Set XLSSheet = XLXBook.Worksheets ( " Tabelle1 " )

XLSSheet

. Range (" B1 " ) . Wählen

XLSPar = Selection.Value

End With

XLXBook.Close

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

DoCmd.SetWarnings Falsch

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 " Die Beschreibung für Produkt -ID in B1 ist" & rst . Felder (1). Wert

rst.Close

dbs.Close

End Sub
5

Presse "F5" zu laufen Ihre Unterprogramm .