Kód můžete do modulu přidat bez použití samostatného textového souboru, který kód obsahuje.
Níže uvedené makro ukazuje, jak to lze provést. Makro je třeba přizpůsobit tak, aby obsahovalo kód, který chcete přidat:
Sub InsertProcedureCode (ByVal wb As Workbook, ByVal InsertToModuleName As String) 'inserts new code in module named InsertModuleName in wb' needs customizing 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 Pokud není VBCM není nic, pak s VBCM InsertLineIndex = .CountOfLines + 1 'přizpůsobte další řádky podle kódu, který chcete vložit .InsertLines InsertLineIndex, "Sub NewSubName ()" & Chr (13) InsertLineInd = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ "Msgbox" "Hello World!" ", VbInformation," "Message Box Title" "" & Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, "End Sub" & Chr ( 13) 'není třeba více přizpůsobovat Konec se sadou VBCM = Nic Konec Pokud při chybě GoTo 0 Konec Sub
Příklad:
Sešity InsertProcedureCode ("WorkBookName.xls"), "Module1"