Kodo lahko dodate modulu, ne da bi uporabili ločeno besedilno datoteko, ki vsebuje kodo.
Spodnji makro prikazuje, kako je to mogoče storiti. Makro je treba prilagoditi, da vsebuje kodo, ki jo želite dodati:
Sub InsertProcedureCode (ByVal wb kot delovni zvezek, ByVal InsertToModuleName As String) 'vstavi novo kodo v modul z imenom InsertModuleName v wb' je treba prilagoditi, odvisno od kode, da vstavi Dim VBCM kot kodni modul Dim InsertLineIndex kot dolgo pri napaki Nadaljuj Naslednji VKBro = wBCP = wBCM .VBComponents (InsertToModuleName) .CodeModule Če ni VBCM ni nič, potem z VBCM InsertLineIndex = .CountOfLines + 1 'prilagodite naslednje vrstice glede na kodo, ki jo želite vstaviti. = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ "Msgbox" "Hello World!" ", VbInformation," "Title Box Box Title" "" & Chr (13) InsertLineIndex = InsertLineIndex + 1. InnseLine InsertLineIndex, "End Sub" & Chr 13) „ni potrebe po dodatnem prilagajanju Konec z nastavljenim VBCM = Nič konca, če je vklopljeno Napaka Pojdi na 0 Konec pod
Primer:
Delovni zvezki InsertProcedureCode ("WorkBookName.xls"), "Module1"