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

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

1 Κάντε κλικ στην καρτέλα " Εργαλεία βάσης δεδομένων " , κάντε κλικ στο " Visual Basic " και κάντε κλικ στο μενού "Εισαγωγή" . Κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα VBA . 2

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

Ξεκινήστε πληκτρολογώντας τον παρακάτω κώδικα για να δημιουργήσετε ένα νέο sub διαδικασία :

Private Sub updateSpreadSheet ( )

On Error GoTo Err_updateSpreadSheet :
Η

4 Πληκτρολογήστε τον ακόλουθο κώδικα για τη δημιουργία των βιβλίων και φύλλων εργασίας αντικείμενα :

Dim wkBkObj όπως Excel.Workbook

Dim XLSheet όπως Excel.Worksheet

5

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

Set wkBkObj = Workbooks.Open ( " C : \\ mySpreadsheet.xlsx " )

Σετ XLSheet = wkBkObj.Worksheets ( " Φύλλο1 " )

wkBkObj.Windows ( 1 ) . Visible = True

6

Προσθέστε τον ακόλουθο κώδικα VBA για να ενημερώσετε A1 του φύλλου: . .

με XLSheet

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

. Range ( "A1" ) . value = " ενημερωμένη τιμή από την Access "

End με τη
7

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

wkBkObj.Save

wkBkObj.Close

Exit_updateSpreadSheet :

Exit Sub

Err_updateSpreadSheet :

MsgBox Err.Description

Συνέχιση Exit_updateSpreadSheet : .

End Sub
8

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


Η