Galite pridėti kodą prie modulio nenaudodami atskiro teksto failo, kuriame yra kodas.
Žemiau esanti makrokomanda rodo, kaip tai galima padaryti. Makrokomandą reikia pritaikyti taip, kad ji būtų įtraukta į kodą, kurį norite pridėti:
Sub InsertProcedureCode (ByVal wb As Workbook, ByVal InsertToModuleName As String) "įterpia naują kodą į modulį, pavadintą InsertModuleName in wb", reikia pritaikyti priklausomai nuo įterpiamo kodo Dim VBCM Kaip CodeModule Dim InsertLineIndex kaip ilgai įjungta klaida Tęsti kitą rinkinį VBCM = wb.VBPro .VBComponents (InsertToModuleName) .CodeModule Jei ne VBCM yra niekas, tada su VBCM InsertLineIndex = .CountOfLines + 1 'pritaikykite kitas eilutes, priklausomai nuo norimo įterpti kodo .InsertLines InsertLineIndex, "Sub NewSubName ()" & Chr (13) InsertL = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ "Msgbox" "Labas pasaulis!" ", VbInformation," "Message Box Title" "" & Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, "End Sub" & Chr ( 13) 'nereikia daugiau tinkinti pabaigos su rinkiniu VBCM = Nieko nesibaigs, jei įvyks klaida GoTo 0 End Sub
Pavyzdys:
„InsertProcedureCode“ darbaknygės („WorkBookName.xls“), „1 modulis“