Du kan tilføje kode til et modul uden at bruge en separat tekstfil, der indeholder koden.
Makroen herunder viser, hvordan dette kan gøres. Makroen skal tilpasses til at indeholde den kode, du vil tilføje:
Sub InsertProcedureCode (ByVal wb As Workbook, ByVal InsertToModuleName As String) 'indsætter ny kode i modulet ved navn InsertModuleName i wb' skal tilpasses afhængigt af koden for at indsætte Dim VBCM som CodeModule Dim InsertLineIndex så længe ved fejl Genoptag næste sæt VBCM = wb.VBProject .VBComponents (InsertToModuleName) .CodeModule If Not VBCM Is Nothing Then With VBCM InsertLineIndex = .CountOfLines + 1 'tilpasse de næste linjer afhængigt af den kode, du vil indsætte .InsertLines InsertLineIndex, "Sub NewSubName ()" & Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ "Msgbox" "Hello World!" ", VbInformation," "Message Box Title" "" & Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, "End Sub" & Chr ( 13) 'ikke behov for mere tilpasning Afslut med sæt VBCM = Intet ende hvis ved fejl GoTo 0 End Sub
Eksempel:
InsertProcedureCode Workbooks ("WorkBookName.xls"), "Modul1"