Voit lisätä koodin moduuliin ilman erillistä tekstitiedostoa, joka sisältää koodin.
Alla oleva makro näyttää, kuinka tämä voidaan tehdä. Makro on mukautettava siten, että se sisältää koodin, jonka haluat lisätä:
Sub InsertProcedureCode (ByVal wb As Workbook, ByVal InsertToModuleName As String) 'lisää uuden koodin moduuliin nimeltä InsertModuleName in wb' on mukautettava lisättävän koodin mukaan Dim VBCM As CodeModule Dim InsertLineIndex niin kauan päällä Virhe Jatka Seuraava Aseta VBCM = wb.VBPro .VBComponents (InsertToModuleName) .CodeModule Jos ei VBCM ei ole mitään sitten VBCM: n kanssa InsertLineIndex = .CountOfLines + 1 'muokkaa seuraavia rivejä lisättävän koodin mukaan .InsertLines InsertLineIndex, "Sub NewSubName ()" & ChrIndine = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ "Msgbox" "Hello World!" ", VbInformation," "Message Box Title" "" & Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, "End Sub" & Chr ( 13) 'ei tarvitse mukauttaa enempää End With Set VBCM = Nothing End If On Error GoTo 0 End Sub
Esimerkki:
InsertProcedureCode -työkirjat ("WorkBookName.xls"), "Moduuli1"