Τρόπος εισαγωγής πρόσβαση ερωτήματος στο Excel

Εισαγωγή των αποτελεσμάτων ενός ερωτήματος της Microsoft Access στο Excel μπορεί να γίνει με διάφορους τρόπους , συμπεριλαμβανομένης μιας προσέγγισης χρησιμοποιώντας δυναμικές συνδέσεις για τους χρήστες του Excel 2007 ή νεότερη έκδοση . Οι χρήστες του Excel 2003 ή και νωρίτερα μπορεί να ολοκληρώσει την εισαγωγή χρησιμοποιώντας μια μακροεντολή της Access που λειτουργεί με το Microsoft Office αυτοματισμού αντικείμενα . Τα πράγματα που θα χρειαστείτε για Microsoft Excel και Access , έκδοση 2003 ή αργότερα
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ανοικτή Πρόσβαση και δημιουργείτε τον ακόλουθο πίνακα των δεδομένων του δείγματος , η οποία έχει πεδίο ονόματα στην πάνω σειρά . Κάντε κλικ στο \\ " Δημιουργία > Πίνακας \\ " για να δημιουργήσετε τον πίνακα .

Παιχνίδι , saledate , totalsale
σεισμό , 12/1/2009 , 6,01 δολάρια
σεισμό , 12/3/2009 , 7,98 δολάρια
ήρωας κιθάρα , 12/5/2009 , 4,98 δολάρια
ήρωας κιθάρα , 12/6/2009 , 5,98 δολάρια
Αποθηκεύστε τον πίνακα ( πιέζοντας \\ " ελέγχου - s \\" ) με την ονομασία \\ 2

Δημιουργήστε ένα νέο ερώτημα για την επιτραπέζια παιχνίδια κάνοντας κλικ \\ " Δημιουργία > Σχεδίαση ερωτήματος , \\" δεξί κλικ στο \\ " Query1 \\ " κείμενο στην καρτέλα του ερωτήματος , και κάνοντας κλικ στο \\ " Προβολή SQL . \\"

Πληκτρολογήστε την ακόλουθη δήλωση στο παράθυρο SQL κώδικα :

SELECT παιχνίδια * σΕ myqueryres
ΑΠΟ παιχνίδια
ΠΟΥ ( ( ( games. . παιχνίδι) όπως » * πίσσα * ) )
GO

Αποθηκεύστε το ερώτημα ( από pressnig \\" ελέγχου -s \\ ") σαν \\" myquery . \\ "
εικόνων 3

Εκτελέστε το ερώτημα κάνοντας διπλό κλικ \\ " myquery \\ " στο παράθυρο περιήγησης και, στη συνέχεια , κλείστε την Access και ανοίξτε το Microsoft Excel .
Η 4

Κάντε κλικ στο \\ " Data \\ " και επιλέξτε \\ " Από την Access . \\ " Στο \\ " Επιλογή αρχείου προέλευσης δεδομένων \\ " παράθυρο διαλόγου , ανοίξτε τη βάση δεδομένων της Access που δημιούργησε την επιτραπέζια παιχνίδια μέσα Επιλέξτε τον πίνακα \\ " myqueryres \\ " από το \\ "Επιλογή πίνακα \\ " παράθυρο διαλόγου και, στη συνέχεια , πατήστε \\ " OK \\ " για την " \\ Εισαγωγή δεδομένων " παράθυρο διαλόγου \\ . Παρατηρήστε ότι το Excel έχει εισαχθεί το ερώτημα .
5

Κλείσιμο Excel , να θυμόμαστε το όνομα του αρχείου , όταν μπορείτε να αποθηκεύσετε το αρχείο . Re - ανοικτή πρόσβαση . Αναθεωρήστε \\ " myquery \\ " στο \\ " Προβολή SQL \\ " ως εξής :

SELECT παιχνίδια * ΣΕ myqueryres
ΑΠΟ παιχνίδια
WHERE ( ( ( games.game ) Όπως » * ua * ) ) ?
Η 6

Αποθηκεύστε και εκτελέστε ξανά το ερώτημα , στη συνέχεια , κλείστε την Access και ανοίξτε ξανά το Excel το αρχείο δημιουργήθηκε το πίνακας σύνδεσμο μέσα Select \\ " Data \\ " και επιλέξτε \\ " Συνδέσεις , \\ " , στη συνέχεια, πατήστε το κουμπί \\ " Ανανέωση \\ " στο " Συνδέσεις βιβλίου εργασίας \\ " παράθυρο διαλόγου \\ . Κλείστε το παράθυρο διαλόγου και να παρατηρήσετε ότι τα αποτελέσματα του ερωτήματος έχουν αλλάξει .
Η 7

( Για τους χρήστες του Excel 2003 ) Ακολουθήστε τα βήματα 1 και 2 . Run \\ " myquery , \\ " και στη συνέχεια πατήστε \\ "alt \\ " + \\ " F11 \\ " για να εισάγετε το Visual Basic ολοκληρωμένο περιβάλλον ανάπτυξης ( IDE ) . Πατήστε \\ "Εισαγωγή \\" και επιλέξτε \\ " Ενότητα , \\ " , στη συνέχεια, επικολλήστε τον παρακάτω κώδικα προγράμματος σε νέο παράθυρο κώδικα :


Public Sub sendToExcel ( )

'''''' '''''' '''''' '' '''' '
Ορίστε curdb = CurrentDb Ορισμός φές = curdb.OpenRecordset ( \\ " myqueryres \\" )
st = \\ " παιχνίδι \\ " και \\ " , \\ " και \\ " saledate \\ " και \\ " , \\ " και \\ " totalsale \\ " & vbCr

Set xlApp = CreateObject ( \\ " Excel.Application \\ " )

xlapp.Workbooks.Add r = 1 : c = 1
xlapp.ActiveSheet.Cells ( r , c ) = st
r = 2
st = \\ " \\ "
Do While Not recs.EOF
st st = & recs ! [ παιχνίδι ] & \\ " , \\ " & _ recs [ saledate ] & \\ " , \\ " & recs [ totalsale ] & vbCr
xlapp.ActiveSheet.Cells ( r , c ) = st
? recs.MoveNext
r = r + 1
st = \\ " \\ "

Loop recs.Close : curdb.Close
? xlapp.ActiveWorkbook.SaveAs ( \\ " c : \\ \\ accessquery.xls \\ " )
xlapp.Quit

End Sub
8

Κάντε κλικ στο \\ " Εργαλεία \\" και επιλέξτε \\ "Αναφορές , \\ " έπειτα επιλέξτε το πλαίσιο ελέγχου με την ετικέτα \\ " αντικειμένων του Microsoft Excel \\ " έτσι ώστε η μακροεντολή σας μπορεί να αναγνωρίσει τις λειτουργίες που κάνει το Excel διαθέσιμα .
Τετάρτη 9

Εκτέλεση μακροεντολής σας, τοποθετώντας το δρομέα οπουδήποτε στην υπορουτίνα sendToExcel και πιέζοντας \\
Η 10

κάντε διπλό κλικ στο αρχείο \\ "c : \\ \\ accessquery.xls \\ " από τον Windows Explorer , και να παρατηρήσετε τα αποτελέσματα του ερωτήματος στο Microsoft Excel , όταν ανοίγει .
Η
εικόνων