1 Κάντε κλικ στο " Εργαλεία βάσης δεδομένων " και κάντε κλικ στο " Visual Basic" για να ξεκινήσει η Επεξεργασία Visual Basic . Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να προσθέσετε μια νέα ενότητα 2
αντιγραφή και επικόλληση του παρακάτω για να ξεκινήσετε μια νέα διαδικασία ρουτίνας και να δημιουργήσουν τις μεταβλητές που θα χρησιμοποιήσετε για να συνδεθείτε στο Excel . :
Private Sub connectToExcel ( )
Dim newExcelApp Όπως Excel.Application
Dim newWbk Όπως Excel.Workbook
εικόνων 3
Εισάγετε τον παρακάτω, για να εμφανίσετε την εφαρμογή του Excel :
Set newExcelApp = Excel.Application
newExcelApp.Visible = True
Η 4
Επεξεργασία " C : \\ MyEXCELBk.xlsx " παρακάτω και πληκτρολογήστε τη διαδρομή για το βιβλίο εργασίας του Excel . Πληκτρολογήστε τον ακόλουθο κώδικα για να κάνει τη σύνδεση :
Set newWbk = newExcelApp.Workbooks.Open ( " C : \\ MyEXCELBk.xlsx " )
5
Πληκτρολογήστε τον ακόλουθο κώδικα για να αποθηκεύσετε οποιαδήποτε αλλαγές και να κλείσετε το βιβλίο εργασίας σας :
ActiveWorkbook.Save
MsgBox " Done "
ActiveWorkbook.Close
End Sub
Η 6
Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία σας .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα