Πώς να περάσει τις παραμέτρους από το Excel στο Microsoft Query

Έχοντας τη γνώση για να περάσει τις παραμέτρους από το Microsoft Excel σε ένα ερώτημα στη Microsoft Office Access μπορεί να κάνει την εφαρμογή της βάσης δεδομένων σας πιο δυναμική . Excel είναι μια εφαρμογή λογιστικών φύλλων που χρησιμοποιείται συχνά για την αποθήκευση και ανάλυση μεγάλων όγκων δεδομένων . Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που χρησιμοποιείται για το σχεδιασμό των τοπικών βάσεων δεδομένων . Visual Basic for Applications ( VBA ) είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιείται για να αυτοματοποιήσουν εργασίες ρουτίνας , όπως πέρασμα παραμέτρων από το Excel στην Access . Ένα ερώτημα χρησιμοποιείται για την ανάκτηση πληροφοριών από τους πίνακες της βάσης δεδομένων . Τα πράγματα που θα χρειαστείτε για Microsoft Office Access
Microsoft Office Excel

Παρουσίαση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Microsoft Office Excel , πληκτρολογήστε " 1 " σε " A1 " , " 2 " σε " Β1 " και " 3 " σε " C1 ". Αποθηκεύστε το βιβλίο εργασίας ως " myExceldata " σε " C : \\ " . 2

Ξεκινήστε το Microsoft Office Access , επιλέξτε "Bland βάση δεδομένων " και στη συνέχεια κάντε κλικ στο κουμπί " Δημιουργία ". Επιλέξτε από το μενού " Εργαλεία βάσης δεδομένων " και κάντε κλικ στο " Visual Basic ". Κάντε κλικ στο "Εισαγωγή" μενού και επιλέξτε " Ενότητα ".
Εικόνων 3

Κάντε κλικ στο μενού "Εργαλεία" , επιλέξτε "Αναφορές " και επιλέξτε το πλαίσιο δίπλα στο " Microsoft Excel ? Object Library " . Κάντε κλικ στο " OK".
Η

4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA για να ανοίξετε το " myExceldata " βιβλίο εργασίας . Θα χρησιμοποιήσετε την τιμή σε " B1 " ως παράμετρος για την αναζήτηση δεδομένων από τον πίνακα " dbAccessTable " που δημιουργήθηκε και να εμφανίσει την περιγραφή μέσα από ένα πλαίσιο μηνύματος .

Private Sub passExcelParamenters ( )

Dim strSQL Όπως String Dim

dbs Όπως Database

Dim rst Όπως εγγραφών

Dim XLSPar As Integer

Dim XLSApp Όπως Excel.Application

Dim XLXBook Όπως Excel.Workbook

Dim XLSSheet Όπως Excel.Worksheet

Set dbs = CurrentDb

Set XLXBook = Workbooks.Add ( Πρότυπο : = " G : \\ myExcelData . xlsx " )

Σετ XLSApp = XLXBook.Parent

Set XLSSheet = XLXBook.Worksheets ( " Φύλλο1 " )

Με XLSSheet

. Range ( " B1 " ) . Επιλέξτε

XLSPar = Selection.Value

End With

XLXBook.Close

strSQL = " CREATE TABLE dbAccessTable ( ΑΡΙΘΜΟΣ Prod_ID , Prodct TEXT) ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO dbAccessTable ( Prod_ID , Prodct ) "

strSQL = strSQL & " ΑΞΙΕΣ ( 1 , ' Cars' ) ? "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO dbAccessTable ( Prod_ID , Prodct ) "

strSQL = strSQL & " ΑΞΙΕΣ ( 2 , ' Φορτηγά ') ? "

DoCmd.RunSQL ( strSQL )

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

sqlStr = sqlStr & "ΑΠΟ dbAccessTable "

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

Set RST = dbs.OpenRecordset ( sqlStr )

rst.MoveLast

rst.MoveFirst

MsgBox " Η περιγραφή για το αναγνωριστικό του προϊόντος στο Β1 είναι " & ΤΥ . πεδία ( 1 ) . Value

rst.Close

dbs.Close

Sub End
5

Πατήστε το " F5 " για να τρέξει σας υπορουτίνα .
Η
εικόνων