Tabla de contenido
Puede agregar código a un módulo sin usar un archivo de texto separado que contenga el código.
La siguiente macro muestra cómo se puede hacer esto. La macro debe personalizarse para contener el código que desea agregar:
Sub InsertProcedureCode (ByVal wb como libro de trabajo, ByVal InsertToModuleName como cadena) 'inserta un nuevo código en el módulo llamado InsertModuleName en wb' necesita personalizarse según el código para insertar Dim VBCM como CodeModule Dim InsertLineIndex como largo en error Reanudar Siguiente conjunto VBCM = wb.VBProject .VBComponents (InsertToModuleName) .CodeModule Si VBCM no es nada, entonces con VBCM InsertLineIndex = .CountOfLines + 1 'personalice las siguientes líneas según el código que desee insertar .InsertLines InsertLineIndex, "Sub NewSubName ()" & Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ "Msgbox" "¡Hola mundo!" ", VbInformation," "Título del cuadro de mensaje" "" & Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, "End Sub" & Chr ( 13) 'no es necesario personalizar más End With Set VBCM = Nothing End If On Error GoTo 0 End Sub
Ejemplo:
InsertarProcedureCode Workbooks ("WorkBookName.xls"), "Module1"