Kôd možete dodati modulu bez upotrebe zasebne tekstualne datoteke koja sadrži kôd.
Donja makro prikazuje kako se to može učiniti. Makronaredba mora biti prilagođena tako da sadrži kôd koji želite dodati:
Sub InsertProcedureCode (ByVal wb Kao radna knjiga, ByVal InsertToModuleName As String) 'ubacuje novi kôd u modul pod nazivom InsertModuleName u wb' treba prilagoditi ovisno o kodu za umetanje Dim VBCM kao kodni modul Dim InsertLineIndex kao dugo uključeno Pogreška Nastavi Sljedeći Set VBCM = wBCM = .VBComponents (InsertToModuleName) .CodeModule Ako nije VBCM ništa, tada s VBCM InsertLineIndex = .CountOfLines + 1 'prilagodite sljedeće retke ovisno o kodu koji želite umetnuti. = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ "Msgbox" "Hello World!" ", VbInformation," "Title Box Box Title" "" & Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, "End Sub" & Chr 13) 'nema potrebe za dodatnim prilagođavanjem Završi s postavljenim VBCM = Ništa ne prestaje ako je uključeno Greška Idi na 0 Završi pod
Primjer:
InsertProcedureCode radne knjige ("WorkBookName.xls"), "Modul 1"