Kód môžete do modulu pridať bez použitia samostatného textového súboru, ktorý kód obsahuje.
Nasledujúce makro ukazuje, ako sa to dá urobiť. Makro je potrebné prispôsobiť tak, aby obsahovalo kód, ktorý chcete pridať:
Sub InsertProcedureCode (ByVal wb As Workbook, ByVal InsertToModuleName As String) 'inserts new code in module named InsertModuleName in wb' needs customization depending on the code to insert Dim VBCM As CodeModule Dim InsertLineIndex As Long On Error Resume Next Set VBCM = wb.VBProject .VBComponents (InsertToModuleName) .CodeModule Ak nie VBCM nie je nič, potom s VBCM InsertLineIndex = .CountOfLines + 1 'prispôsobí nasledujúce riadky v závislosti od kódu, ktorý chcete vložiť .InsertLines InsertLineIndex, "Sub NewSubName ()" & Chr (13) InsertLineInd = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ "Msgbox" "Hello World!" ", VbInformation," "Title Box Title" "" "& Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex," End Sub "& Chr ( 13) „nie je potrebné ďalšie prispôsobovanie Koniec so sadou VBCM = Nič sa nekončí Ak sa vyskytne chyba GoTo 0 Koniec pod
Príklad:
Zošity InsertProcedureCode („WorkBookName.xls“), „Modul1“