Μπορείτε να προσθέσετε κώδικα σε μια ενότητα χωρίς να χρησιμοποιήσετε ξεχωριστό αρχείο κειμένου που περιέχει τον κώδικα.
Η παρακάτω μακροεντολή δείχνει πώς μπορεί να γίνει αυτό. Η μακροεντολή πρέπει να προσαρμοστεί ώστε να περιέχει τον κώδικα που θέλετε να προσθέσετε:
Sub InsertProcedureCode (ByVal wb As Workbook, ByVal InsertToModuleName As String) 'εισάγει νέο κώδικα στη λειτουργική μονάδα που ονομάζεται InsertModuleName στο wb' χρειάζεται προσαρμογή ανάλογα με τον κώδικα για να εισαγάγει Dim VBCM As CodeModule Dim InsertLineIndex As Long On Error Resume Next Set VBCM = wb. .VBComponents (InsertToModuleName) .CodeModule Εάν όχι VBCM δεν είναι τίποτα τότε με VBCM InsertLineIndex = .CountOfLines + 1 'προσαρμόστε τις επόμενες γραμμές ανάλογα με τον κώδικα που θέλετε να εισαγάγετε .InsertLines InsertLineIndex, "Sub NewSubName ()" & Chr (13) & Chr (13) = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ "Msgbox" "Hello World!" ", VbInformation," "Title Box Message" "" & Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, "End Sub" & " 13) «δεν χρειάζεται περισσότερη προσαρμογή Τέλος με Σετ VBCM = Τίποτα Τέλος Αν Σφάλμα GoTo 0 Τέλος Υπο
Παράδειγμα:
Βιβλία εργασίας InsertProcedureCode ("WorkBookName.xls"), "Module1"