Πώς να ανοίξετε ένα υπολογιστικό φύλλο του Excel Από τη στήλη Access VBA Εισαγωγή

Γνωρίζοντας πώς να ανοίξετε ένα υπολογιστικό φύλλο του Microsoft Excel από τη Microsoft Access και εισάγοντας μια νέα στήλη στο φύλλο εργασίας χρησιμοποιώντας τη Visual Basic for Applications ( VBA ) μπορούν να κάνουν αίτηση Access σας πιο δυναμική . Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που χρησιμοποιούνται συνήθως για μικρότερες βάσεις δεδομένων . Excel είναι μια εφαρμογή λογιστικών φύλλων που προσφέρει ισχυρά εργαλεία για την ανάλυση των δεδομένων . VBA είναι μια δημοφιλής γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται για την αυτοματοποίηση εργασιών αλλιώς γίνεται με το χέρι . Σε μερικά βήματα μπορείτε να γράψετε κώδικα VBA στην Access για να ανοίξετε ένα βιβλίο εργασίας του Excel και να εισαγάγετε μια νέα στήλη στο Φύλλο1 . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Office Access 2007 και επιλέξτε "Blank Database " και στη συνέχεια κάντε κλικ στο κουμπί " Δημιουργία ". Κάντε κλικ στο " Εργαλεία βάσης δεδομένων " και στη συνέχεια επιλέξτε " Visual Basic ". Κάντε κλικ στο "Εισαγωγή " πεδίο και επιλέξτε " Ενότητα ". 2

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο module σας . Ο κωδικός αυτός θα ανοίξει ένα φύλλο εργασίας , εισαγάγετε μια νέα στήλη στα δεξιά του " Στήλη Γ " και εισάγετε " Η στήλη αυτή εισήχθη από την Access . "

Private Sub addExcelColumn ( )

Dim xlApp Όπως Excel.Application

Dim XLBook Όπως Excel.Workbook

Dim XLSheet Όπως Excel.Worksheet

Set XLBook = Workbooks.Add ( Πρότυπο : = " C : \\ Book1.xls » )

Σετ xlApp = XLBook.Parent

Set XLSheet = XLBook.Worksheets ( " Φύλλο1 " )

XLBook.Windows ( 1 ) . Visible = True
.

XLApp.Visible = True

Με XLSheet

Στήλες . ( "C: C " ) Επιλέξτε

Shift Selection.Insert : = xlToRight

. Range ( "C1" ) . Επιλέξτε

Selection.Value = " Αυτή η στήλη εισήχθη από την Access "

. Range ( " D3 " ) . Επιλέξτε

End With

End Sub
εικόνων 3

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

Set XLBook = Workbooks.Add ( πρότυπο : = " C : \\ Book1.xls " " . F5 " )

Εκτελέστε υπορουτίνα σας πατώντας
Η
εικόνων