Du kan lägga till kod till en modul utan att använda en separat textfil som innehåller koden.
Makrot nedan visar hur detta kan göras. Makrot måste anpassas för att innehålla den kod du vill lägga till:
Sub InsertProcedureCode (ByVal wb As Workbook, ByVal InsertToModuleName As String) "infogar ny kod i modulen som heter InsertModuleName i wb" måste anpassas beroende på koden för att infoga Dim VBCM som CodeModule Dim InsertLineIndex så länge vid fel Återuppta nästa uppsättning VBCM = wb.VBProject .VBComponents (InsertToModuleName) .CodeModule If Not VBCM Is Nothing Then With VBCM InsertLineIndex = .CountOfLines + 1 'anpassa nästa rader beroende på koden du vill infoga .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) 'inget behov av mer anpassning Avsluta med Set VBCM = Inget slut om vid fel GoTo 0 End Sub
Exempel:
InsertProcedureCode Workbooks ("WorkBookName.xls"), "Module1"