Πώς να μεταφέρετε το υπολογιστικό φύλλο Excel 2010 στην Access 2010 χρησιμοποιώντας το VBA

Το Excel 2010 και το Microsoft Office stablemate Access 2010 λειτουργούν χέρι-χέρι όταν χρειάζεται να εισαγάγετε δεδομένα του Excel σε μια βάση δεδομένων της Access. Το αντικείμενο "DoCmd" περιέχει τη μέθοδο "TransferSpreadsheet" για την εισαγωγή ενός υπολογιστικού φύλλου στην Access από το Excel χρησιμοποιώντας τη Visual Basic for Applications. Αυτή η μέθοδος υποστηρίζει επίσης άλλες μορφές αρχείων, όπως το Lotus. Ομοίως, μπορείτε να χρησιμοποιήσετε την ίδια μέθοδο για την εξαγωγή δεδομένων από την πρόσβαση στο Excel, αλλάζοντας την απαρίθμηση "AcDataTransferType" σε "acExport".

Βήμα 1

Έναρξη πρόσβασης 2010. Κάντε κλικ στην επιλογή ** Blank Database ** και στη συνέχεια κάντε κλικ στο κουμπί ** Δημιουργία ** για να δημιουργήσετε μια νέα βάση δεδομένων. Κάντε κλικ στην καρτέλα ** Εργαλεία βάσης δεδομένων ** και επιλέξτε ** Visual Basic ** για να ανοίξετε το παράθυρο Microsoft Visual Basic. Κάντε κλικ στο μενού ** Εισαγωγή ** και κάντε κλικ στην επιλογή ** Module ** για να εισαγάγετε μια νέα μονάδα κώδικα.

Βήμα 2

Αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα για να δημιουργήσετε μια νέα υποδιαίρεση: Private Sub importExcelSpreadsheet ) Πατήστε ** Enter ** στο πληκτρολόγιό σας για να δημιουργήσετε το End Sub για τη διαδικασία.

Βήμα 3

Αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα μέσα στη διαδικασία εισαγωγής ** Private Sub importExcelSpreadsheet () ** ένα υπολογιστικό φύλλο Excel για πρόσβαση: DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ "Υπάλληλοι", "C: \\ Employees.xlsx", True

Βήμα 4 - Επεξεργασία ** Υπάλληλοι ** και πληκτρολογήστε το όνομα τον πίνακα για το στοχευόμενο υπολογιστικό φύλλο. Επεξεργασία ** C: \\ Employees.xlsx ** και πληκτρολογήστε τη διαδρομή και το όνομα του υπολογιστικού σας φύλλου Excel που θα εισαχθεί.

Πατήστε ** F5 ** για να εκτελέσετε τη διαδικασία και να εισαγάγετε το υπολογιστικό φύλλο Excel στην Access.