Du kan legge til kode i en modul uten å bruke en egen tekstfil som inneholder koden.
Makroen nedenfor viser hvordan dette kan gjøres. Makroen må tilpasses for å inneholde koden du vil legge til:
Sub InsertProcedureCode (ByVal wb As Workbook, ByVal InsertToModuleName As String) 'setter inn ny kode i modulen ved navn InsertModuleName i wb' må tilpasses avhengig av koden for å sette inn Dim VBCM som CodeModule Dim InsertLineIndex så lenge på feil Fortsett neste sett VBCM = wb.VBProject .VBComponents (InsertToModuleName) .CodeModule If Not VBCM Is Nothing Then With VBCM InsertLineIndex = .CountOfLines + 1 'tilpasse de neste linjene avhengig av koden du vil sette inn. InsertsLines 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 mer tilpasning End With Set VBCM = Nothing End If On Error GoTo 0 End Sub
Eksempel:
InsertProcedureCode Workbooks ("WorkBookName.xls"), "Module1"