Πώς μπορώ να δημιουργήσω μια σύνδεση σε μια εξωτερική υπολογιστικό φύλλο Via VBA και Access

; Όταν οι χρήστες του Excel χρειάζονται περισσότερο εκτεταμένο σύνολο πρόσβαση σε εργαλεία βάσης δεδομένων για να χειριστείτε τα δεδομένα υπολογιστικών φύλλων τους , μπορούν να κάνουν κλικ το εικονίδιο " Excel " Πρόσβαση " στο " Εισαγωγή " πίνακα για να αναπαραγάγει τα δεδομένα του υπολογιστικού φύλλου ως ένα νέο πίνακα της Access . Αλλά αν οι χρήστες αντί να θέλουν να διατηρήσουν ένα μόνο αντίγραφο των δεδομένων , μπορούν να το κάνουν με τη δημιουργία ενός συνδέσμου και όχι έναν ξεχωριστό πίνακα . Χρησιμοποιώντας VBA για να δημιουργήσει αυτό το σύνδεσμο ανακουφίζει χρήστες της Access να πρέπει να το δημιουργήσετε χειροκίνητα , μια διαδικασία που απαιτεί την επιλογή των επιλογών . Ο κώδικας VBA θα επιλέξει τις σωστές επιλογές , μειώνοντας την πιθανότητα πιθανού σφάλματος χρήστη . Οδηγίες
Η 1

Ανοικτής Πρόσβασης , στη συνέχεια, πληκτρολογήστε το Visual Basic ολοκληρωμένο περιβάλλον ανάπτυξης ( IDE ), πατώντας το πλήκτρο " Alt - F11 . " Τοποθετήστε μια νέα λειτουργική μονάδα κώδικα με την επιλογή " ενότητα " από το μενού " Εισαγωγή" του IDE είναι 2

Επικολλήστε τον ακόλουθο υπορουτίνα σε οποιοδήποτε τμήμα του νέου μονάδα κώδικα : .

Δημόσια xstest Sub ( )

DoCmd.TransferSpreadsheet acLink , 5 , _

" newtable " , " " True ", A1 : C4 "

End Sub

Η 3

Πληκτρολογήστε πάνω από το κείμενο " " ( χωρίς τα εισαγωγικά ) το πλήρες όνομα διαδρομής του υπολογιστικού φύλλου του Excel που θέλετε Access να συνδεθείτε. Επίσης , πληκτρολογήστε πάνω από το κείμενο . "A1 : C4 " η προδιαγραφή όλο το φάσμα , συμπεριλαμβανομένων τυχόν επικεφαλίδες τομέα , του πίνακα στο φύλλο που θέλετε η σύνδεση να αναφερθώ

Η υπορουτίνα αυτή δημιουργεί μια σύνδεση από το Excel υπολογιστικό φύλλο που έχετε ορίσει σε έναν πίνακα που ονομάζεται " newtable . " Access VBA θα δημιουργήσει αυτόματα αυτόν τον πίνακα για να εμφανίσετε τα στοιχεία του συνδέσμου του . Το επιχείρημα λειτουργία " acLink " λέει VBA για να δημιουργήσετε μια δυναμική σύνδεση , αντί για την εισαγωγή και να δημιουργήσετε ένα αντίγραφο των δεδομένων .
Η 4

Κάντε κλικ σε οποιαδήποτε από τις δηλώσεις του υπορουτίνα , τότε πατήστε το πλήκτρο "F5 " για να εκτελέσετε η υπορουτίνα . Πιέστε το πλήκτρο " Alt - F11 " για να εισέλθει εκ νέου το πρότυπο περιβάλλον Access , στη συνέχεια, κάντε διπλό κλικ στο " newtable " εικονίδιο στην « Όλες οι πίνακες " παράθυρο στο αριστερό μέρος της οθόνης . Πρόσβασης θα εμφανίσει τα δεδομένα του πίνακα , το οποίο θα είναι η ίδια με εκείνη του λογιστικού φύλλου όταν παρατηρείται στο Excel . ( Σημειώστε ότι η Microsoft έχει απενεργοποιήσει τη λειτουργία που επιτρέπει την πρόσβαση για να επεξεργαστείτε τα δεδομένα του υπολογιστικού φύλλου . )
5

Πατήστε το πλήκτρο " Alt - F11 " για να εισέλθει εκ νέου η Visual Basic IDE , στη συνέχεια, κάντε τις ακόλουθες αλλαγές στο " xstest " υπορουτίνα : Αλλάξτε το κείμενο" acLink "να γραφεί" acImport , " και να αλλάξετε " newtable "να γραφεί" newtable2 " . Αυτές οι αλλαγές θα δώσει εντολή VBA για να δημιουργήσετε έναν νέο πίνακα στην Access ότι οι εισαγωγές , παρά συνδέσμους προς τα δεδομένα του υπολογιστικού φύλλου . Η δράση αυτή θα επιτρέψει στους χρήστες την πρόσβαση να τροποποιήσει τα δεδομένα του νέου πίνακα (αν και αυτές οι τροποποιήσεις δεν θα πρέπει να αντικατοπτρίζεται στο λογιστικό φύλλο ) .
Η 6

Εκτελέστε την υπορουτίνα όπως κάνατε στο βήμα 4 , στη συνέχεια, πατήστε το πλήκτρο " Alt - F8 " για να επιστρέψετε στην Access. Κάντε διπλό κλικ στο εικονίδιο " newtable2 " στο αριστερό τμήμα του παραθύρου της οθόνης , στη συνέχεια, επεξεργαστείτε το νέο πίνακα , όπως απαιτείται .
Η
εικόνων