Πώς να μετατρέψετε ένα έγγραφο του Word ή το Excel υπολογιστικού φύλλου σε Microsoft Access Query

ερωτήματα της Microsoft Access είναι ουσιαστικά SQL δηλώσεις , οι οποίες εκτελούν λειτουργίες σε βάσεις δεδομένων . Αυτές οι δηλώσεις είναι γραμμένα με απλό , μορφοποιημένο κείμενο, το οποίο μπορείτε να κάνετε σε οποιαδήποτε εφαρμογή επεξεργασίας κειμένου ή το περιβάλλον , συμπεριλαμβανομένων των MS Word και Excel . Μετατρέποντας ένα ερώτημα σε μια στιγμή από το Word ή το Excel στην Access είναι μια απλή λειτουργία cut-and -paste . Ωστόσο, η μετατροπή πολλά ερωτήματα απαιτεί τη βοήθεια ενός μικρού προγράμματος . Δημιουργήσει αυτό το πρόγραμμα , χρησιμοποιώντας την πρόσβαση Visual Basic ολοκληρωμένο περιβάλλον ανάπτυξης . Τα πράγματα που θα χρειαστείτε για Microsoft Access
Microsoft Word Microsoft Excel

Η Εμφάνιση Περισσότερες οδηγίες μετατρέψετε το Excel φύλλο με το χέρι
Η

1 Δημιουργήστε ένα νέο Microsoft Excel φύλλο και πληκτρολογήστε ή επικολλήστε την ακόλουθη δήλωση σε οποιοδήποτε κύτταρο :

SELECT * από GamesTable ΟΠΟΥ GameTitle = " Monopoly ". 2

Ανοίξτε πρόσβαση και να δημιουργήσετε ένα μικρό δείγμα βάσης δεδομένων πίνακα που ονομάζεται " GamesTable " με το πεδίο " GameTitle " και οποιαδήποτε άλλα πεδία θέλετε .
εικόνων 3

Δημιουργήστε μερικές σειρές των δεδομένων του δείγματος στο τραπέζι , να είστε βέβαιος να περιλαμβάνει " Monopoly " για τον τίτλο του ένα από τα παιχνίδια . Πατήστε "Control -S " για να αποθηκεύσετε τον πίνακα .
Η 4

Ανοίξτε ένα νέο ερώτημα πατώντας το πλήκτρο " Δημιουργία " στη γραμμή εργαλείων της Access , ακολουθούμενη από συμπίεση " Σχεδίαση ερωτήματος ". ( Πιέστε το πλήκτρο " Αντικείμενα ", ακολουθούμενο από το " New " και στη συνέχεια " Query ", αν είστε με τη χρήση της Access 2003 . ) Κάντε διπλό κλικ στο " GamesTable " στοιχείο στο πλαίσιο διαλόγου " Εμφάνιση πίνακα " , στη συνέχεια, πατήστε το πλήκτρο «Escape» για να κλείσετε το παράθυρο .
5

κάντε δεξί κλικ στην καρτέλα του ερωτήματος , το οποίο θα εμφανίσει " Query1 " , και επιλέξτε " Προβολή SQL . "
Η 6

Επιστροφή στο Excel , στη συνέχεια, να επιλέξετε και να αντιγράψετε στο Πρόχειρο τη δήλωση SQL που έγραψε νωρίτερα " ( SELECT * from ... ) . "
Η 7

Μετακίνηση προς τα πίσω για την Access " Προβολή SQL . " Επιλογή όλων υπάρχον κείμενο SQL , στη συνέχεια, επικολλήσετε πάνω πατώντας το πλήκτρο " Control-V . "
8

Εκτελέστε το ερώτημα πατώντας το εικονίδιο " Run" στη γραμμή εργαλείων της Access , ή δεξί κλικ στην καρτέλα του ερωτήματος και επιλέγοντας " Προβολή φύλλου δεδομένων . " Παρατηρήστε ότι εμφανίζει πρόσβαση μόνο το παιχνίδι που καθορίζονται στη δήλωση SQL που έχετε αντιγράψει από το Excel .
Εικόνων μετατρέψτε το έγγραφο του Word με ένα πρόγραμμα

9

Μη αυτόματη μετατροπή ερωτήματα από το Word χρησιμοποιώντας τα βήματα που δίνονται για το Excel . Αναπληρωτής " Λόγος " για το " Excel " , όπως μπορείτε να επαναλάβετε τα βήματα . Ή , ακολουθήστε τα παρακάτω βήματα για να χρησιμοποιήσετε ένα πρόγραμμα που θα μετατρέψει για σας πολλές προτάσεις SQL ταυτόχρονα .
Η 10

Ανοίξτε το Word και πληκτρολογήστε ερώτημα χορδές σας , μία ανά γραμμή . Χρησιμοποιήστε τα ακόλουθα ερωτήματα ως δείγμα για τον πίνακα GamesTable . Βεβαιωθείτε ότι η τελευταία γραμμή του εγγράφου είναι το τελευταίο ερώτημα

Select * from GamesTable ? . SELECT * FROM GamesTable WHERE ( ( ( GamesTable.GameTitle ) = " Monopoly " ) ) ? Επιλέξτε GameTitle από GamesTable ΠΟΥ ( ( ( GamesTable.GameTitle ) όπως " * chees * " ) ) .
Η 11

Αποθηκεύστε το αρχείο ως απλό κείμενο , στη συνέχεια, εισαγάγετε το αρχείο στην Access . Επιλέξτε την καρτέλα " " χαρακτήρα και όχι το « ερωτηματικό » ως οριοθέτη κειμένου, ενώ την ολοκλήρωση του οδηγού εισαγωγής. Βεβαιωθείτε ότι το όνομα του νέου εισαγόμενο πίνακα είναι
Η 12

Ενεργοποίηση μακροεντολών στην Access " Επιλογή ". : Πατήστε το πλήκτρο " Alt -F , " και στη συνέχεια κάντε κλικ στο κουμπί " Επιλογές". Κάνοντας κλικ στο κουμπί " Κέντρο αξιοπιστίας " " Κέντρο αξιοπιστίας " . Κάντε κλικ στο " Ρυθμίσεις μακροεντολών , " ακολουθούμενο από το " Ενεργοποίηση όλων των μακροεντολών , " στη συνέχεια κλείστε όλα τα ανοιχτά παράθυρα διαλόγου . Κλείσιμο και στη συνέχεια ανοίξτε ξανά πρόσβαση . Να είστε βέβαιος για να απενεργοποιήσετε τις μακροεντολές μετά την ολοκλήρωση των βημάτων σε αυτό το άρθρο .
Η 13

Πιέστε το πλήκτρο " Alt - F11 , " και στη συνέχεια πατήστε το κουμπί " Εισαγωγή ", ακολουθούμενη από την "ενότητα ". Επικολλήστε αυτόν τον κώδικα στη λειτουργική μονάδα :

makeQueries Public Sub ( )

Const cstrQueryName = "Επιλογή " Dim dbs Όπως DAO.DatabaseDim ΤΥ Όπως DAO.RecordsetDim QDF Όπως QueryDefDim i Όπως IntegerDim qNameSet dbs = CurrentDbSet RST = dbs.OpenRecordset ( cstrQueryName ) i = 0Do Ενώ δεν rst.EOFDebug.Print " SQL : " & ΤΥ ( " Πεδίο1 " ) qName = " q " και CStr ( i ) Ορισμός QDF = dbs.CreateQueryDef ( qName ) qdf.SQL = ΤΥ ( " Πεδίο1 " ) . Valuerst.MoveNexti = i + 1Looprst.Closedbs.CloseEnd Sub

14

Τοποθετήστε το δρομέα σε οποιοδήποτε σημείο του προγράμματος που μόλις ανέφερα και πατήστε το πλήκτρο "F5 " για να εκτελέσετε αυτό . Επιστροφή στην πρόσβαση , κοντά και στη συνέχεια ανοίξτε ξανά το παράθυρο πλοήγησης για να δείτε τα νέα ερωτήματα ( δηλαδή , " q0 " ή " q1 " ) . Κάντε διπλό κλικ τα ερωτήματα για την εκτέλεσή τους .
Η
εικόνων