Προσθέστε περιεχόμενο σε μια ενότητα από ένα αρχείο χρησιμοποιώντας VBA στο Microsoft Excel

Εάν δεν θέλετε να προσθέσετε μια πλήρη ενότητα, μπορείτε να προσθέσετε μόνο τις διαδικασίες που λείπουν
σε μια υπάρχουσα ενότητα χρησιμοποιώντας την παρακάτω μακροεντολή. Προσθέτει το περιεχόμενο ενός αρχείου κειμένου σε μια υπάρχουσα μονάδα:

Sub ImportModuleCode (ByVal wb As Workbook, _ ByVal ModuleName As String, ByVal ImportFromFile As String) 'εισάγει κώδικα στο ModuleName σε wb από ένα αρχείο κειμένου που ονομάζεται ImportFromFile Dim VBCM As CodeModule If Dir (ImportFromFile) = "" Τότε Έξοδος από το Σφάλμα Συνέχιση Επόμενο Ορίστε VBCM = wb.VBProject.VBComponents (ModuleName) .CodeModule Αν όχι VBCM δεν είναι τίποτα τότε VBCM.AddFromFile ImportFromFile Set VBCM = Τίποτα δεν τελειώνει εάν είναι σε σφάλμα GoTo 0 End Sub

Παράδειγμα:

ImportModuleCode ActiveWorkbook, "TestModule", "C: \ FolderName \ NewCode.txt"