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

Δημιουργώντας ένα υπολογιστικό φύλλο του Excel στην Access μπορεί να σας εξοικονομήσει χρόνο , όταν θα πρέπει να εξάγουν τα δεδομένα σε ένα υπολογιστικό φύλλο του Excel . Visual Basic for Applications ( VBA) μπορεί να είναι ένα ισχυρό εργαλείο για την αυτοματοποίηση των διαδικασιών σε εφαρμογές του Microsoft Office . Με VBA μπορείτε να χρησιμοποιήσετε το αντικείμενο Microsoft Excel Εφαρμογή για να δημιουργήσετε ένα υπολογιστικό φύλλο του Excel από την Access . Το αντικείμενο εφαρμογής του Excel είναι το σημείο εισόδου για το υπόλοιπο του μοντέλου αντικειμένου . Εξαγωγή δεδομένων στο Excel πιο γρήγορα από την εξοικονόμηση των δεδομένων απευθείας σε ένα υπολογιστικό φύλλο του Excel . Οδηγίες
Η 1

την εφαρμογή Microsoft Office Access , κάντε κλικ στην επιλογή " Κενή βάση δεδομένων " και κάντε κλικ στο κουμπί "Δημιουργία " για να δημιουργήσετε μια κενή βάση δεδομένων . Κάντε κλικ στην καρτέλα " Εργαλεία βάσης δεδομένων " και κάντε κλικ στο " Visual Basic" για να ανοίξετε το Microsoft Visual Basic παράθυρο . Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα . 2

Κάντε κλικ στο μενού "Εργαλεία" και κάντε κλικ στο "Αναφορές ". Μετακινηθείτε προς τα κάτω και επιλέξτε το πλαίσιο δίπλα στο " Microsoft Excel βιβλιοθήκη αντικειμένων . " Κάντε κλικ στο " OK".
Εικόνων 3

Ξεκινήστε με τον τύπο τον ακόλουθο κώδικα VBA για να δημιουργήσετε μια νέα διαδικασία ρουτίνας :

Private Sub createSpreadSheet ( )
Η 4

Συνεχίστε πληκτρολογώντας τον παρακάτω κώδικα για να δημιουργήσει τρία νέα μεταβλητή αντικείμενα που θα χρησιμοποιηθούν για να δημιουργήσουν το υπολογιστικό φύλλο του Excel :

Dim newExcelApp Όπως Excel.Application

Dim newWbk Όπως Excel.Workbook

Dim newWkSheet Όπως Excel.Worksheet
5

Προσθέστε τον ακόλουθο κώδικα για να ξεκινήσει το Excel και να το εμφανίσετε :

Set newExcelApp = Excel.Application

newExcelApp.Visible = True
Η 6

Πληκτρολογήστε το παρακάτω για να προσθέσετε ένα νέο βιβλίο εργασίας και φύλλο εργασίας :

Set newWbk = newExcelApp.Workbooks.Add

Set newWkSheet = newWbk.Worksheets ( 1 )
Η 7

Προσθήκη δεδομένων σε νέο υπολογιστικό φύλλο σας, πληκτρολογώντας τα εξής : .

newWkSheet.Cells ( 1 , 1 ) Value = " νέο φύλλο εργασίας ... "
8

Αποθηκεύστε το νέο βιβλίο εργασίας που δημιουργήθηκε πληκτρολογώντας τον ακόλουθο κώδικα :

newWkSheet.SaveAs ( " C : \\ myworksheet.xlsx " )
Η 9

Επεξεργασία τη διαδρομή στο προηγούμενο βήμα και πληκτρολογήστε τη διαδρομή και το όνομα αρχείου της επιλογής σας
Η 10

Πληκτρολογήστε το παρακάτω, για να τερματίσετε τη διαδικασία υπο :

Sub End

11

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία σας και να δημιουργήσετε ένα νέο υπολογιστικό φύλλο του Excel .
Η
εικόνων