Αποθηκεύστε δεδομένα σε υπολογιστικό φύλλο Excel χρησιμοποιώντας VBA.
Η δημιουργία ενός υπολογιστικού φύλλου Excel στην Access μπορεί να σας εξοικονομήσει χρόνο όταν χρειάζεται να εξάγετε δεδομένα σε ένα υπολογιστικό φύλλο Excel. Η Visual Basic for Applications (VBA) μπορεί να είναι ένα ισχυρό εργαλείο για την αυτοματοποίηση των διαδικασιών σε εφαρμογές του Microsoft Office. Με το VBA μπορείτε να χρησιμοποιήσετε το αντικείμενο εφαρμογής Microsoft Excel για να δημιουργήσετε ένα υπολογιστικό φύλλο Excel από την Access. Το αντικείμενο της εφαρμογής Excel είναι το σημείο εισόδου στο υπόλοιπο μοντέλο αντικειμένου. Εξάγετε δεδομένα πιο γρήγορα στο Excel αποθηκεύοντας δεδομένα απευθείας σε ένα υπολογιστικό φύλλο του Excel.
Βήμα 1
Εκκινήστε το Microsoft Office Access, κάντε κλικ στο "Blank Database" και κάντε κλικ στο κουμπί "Create" για να δημιουργήσετε μια κενή βάση δεδομένων. Κάντε κλικ στην καρτέλα "Εργαλεία βάσης δεδομένων" και κάντε κλικ στο "Visual Basic" για να ανοίξετε το παράθυρο της Microsoft Visual Basic. Κάντε κλικ στο μενού "Εισαγωγή" και κάντε κλικ στο "Μονάδα" για να εισαγάγετε μια νέα μονάδα κώδικα.
Το βίντεο της ημέρας
Βήμα 2
Κάντε κλικ στο μενού "Εργαλεία" και κάντε κλικ στην επιλογή "Αναφορές". Κάντε κύλιση προς τα κάτω και επιλέξτε το πλαίσιο δίπλα στο "Microsoft Excel
Βήμα 3
Ξεκινήστε πληκτρολογώντας τον ακόλουθο κώδικα VBA για να δημιουργήσετε μια νέα δευτερεύουσα διαδικασία:
Private Sub createSpreadSheet()
Βήμα 4
Συνεχίστε πληκτρολογώντας τον ακόλουθο κώδικα για να δημιουργήσετε τρία νέα μεταβλητά αντικείμενα που θα χρησιμοποιηθούν για τη δημιουργία του υπολογιστικού φύλλου Excel:
Χαμηλώστε το νέοExcelApp ως Excel. Εφαρμογή. Dim newWbk ως Excel. ΤΕΤΡΑΔΙΟ ΕΡΓΑΣΙΩΝ. Σβήνω το νέοWkSheet ως Excel. Φύλλο εργασίας
Βήμα 5
Προσθέστε τον ακόλουθο κώδικα για να εκκινήσετε το Excel και να το εμφανίσετε:
Ορίστε newExcelApp = Excel. Εφαρμογή
newExcelApp. Ορατό = Αληθινό
Βήμα 6
Πληκτρολογήστε τα ακόλουθα για να προσθέσετε ένα νέο βιβλίο εργασίας και ένα φύλλο εργασίας:
Ορίστε newWbk = newExcelApp. Τετράδια εργασιών. Προσθήκη
Ορισμός newWkSheet = newWbk. Φύλλα εργασίας (1)
Βήμα 7
Προσθέστε δεδομένα στο νέο σας υπολογιστικό φύλλο πληκτρολογώντας τα εξής:
newWkSheet. Κελιά (1, 1).Τιμή = "Νέο φύλλο εργασίας..."
Βήμα 8
Αποθηκεύστε το νέο βιβλίο εργασίας που δημιουργήθηκε πληκτρολογώντας τον ακόλουθο κώδικα:
newWkSheet. SaveAs ("C:\myworksheet.xlsx")Βήμα 9
Επεξεργαστείτε τη διαδρομή στο προηγούμενο βήμα και πληκτρολογήστε τη διαδρομή και το όνομα αρχείου της επιλογής σας.
Βήμα 10
Πληκτρολογήστε τα ακόλουθα για να τερματίσετε τη δευτερεύουσα διαδικασία:
End Sub
Βήμα 11
Πατήστε "F5" για να εκτελέσετε τη διαδικασία σας και να δημιουργήσετε ένα νέο υπολογιστικό φύλλο Excel.
