Saate moodulile koodi lisada ilma seda sisaldavat eraldi tekstifaili kasutamata.
Allpool olev makro näitab, kuidas seda teha. Makro tuleb kohandada nii, et see sisaldaks lisatavasse koodi:
Sub InsertProcedureCode (ByVal wb kui töövihik, ByVal InsertToModuleName kui string) "lisab uue koodi moodulisse InsertModuleName in wb" vajab kohandamist sõltuvalt sisestatavast koodist .VBComponents (InsertToModuleName) .CodeModule Kui mitte VBCM pole midagi, siis koos VBCM -iga InsertLineIndex = .CountOfLines + 1 'kohandab järgmisi ridu sõltuvalt sisestatavast koodist .InsertLines InsertLineIndex, "Sub NewSubName ()" & Chr (13) InsertL = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ "Msgbox" "Tere maailm!" ", VbInformation," "Message Box Title" "" & Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, "End Sub" & Chr ( 13) 'pole vaja rohkem kohandada lõppu seades VBCM = Miski ei lõpe, kui viga ilmub GoTo 0 End Sub
Näide:
InsertProcedureCode töövihikud ("WorkBookName.xls"), "Module1"