Jūs varat pievienot kodu modulim, neizmantojot atsevišķu teksta failu, kurā ir kods.
Zemāk redzamais makro parāda, kā to var izdarīt. Makro ir jāpielāgo tā, lai tas pievienotu kodam, kuru vēlaties pievienot:
Sub InsertProcedureCode (ByVal wb kā darbgrāmata, ByVal InsertToModuleName kā virkne) "ievieto jaunu kodu modulī ar nosaukumu InsertModuleName in wb" ir jāpielāgo atkarībā no ievietotā koda Dim VBCM kā CodeModule Dim InsertLineIndex tik ilgi, kad kļūda Atsākt nākamo iestatījumu VBCM = wb.VBPro .VBComponents (InsertToModuleName) .CodeModule Ja nav VBCM nav nekas, tad ar VBCM InsertLineIndex = .CountOfLines + 1 'pielāgot nākamās rindas atkarībā no koda, kuru vēlaties ievietot .InsertLines InsertLineIndex, "Sub NewSubName ()" & Chr (13) InsertL = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ "Msgbox" "Hello World!" ", VbInformation," "Message Box Title" "" & Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, "End Sub" & Chr ( 13) 'nav nepieciešams vairāk pielāgot End with Set VBCM = Nekas nebeidzas, ja rodas kļūda GoTo 0 End Sub
Piemērs:
InsertProcedureCode darbgrāmatas ("WorkBookName.xls"), "Module1"