Tabla de contenido
Si no desea agregar un módulo completo, puede agregar solo los procedimientos que faltan
a un módulo existente utilizando la macro siguiente. Agrega el contenido de un archivo de texto a un módulo existente:
Sub ImportModuleCode (ByVal wb como libro de trabajo, _ ByVal ModuleName como cadena, ByVal ImportFromFile como cadena) 'importa código a ModuleName en wb desde un archivo de texto llamado ImportFromFile Dim VBCM como CodeModule If Dir (ImportFromFile) = "" Luego sale de Sub en caso de error Continuar Siguiente Establecer VBCM = wb.VBProject.VBComponents (ModuleName) .CodeModule Si no VBCM es nada, entonces VBCM.AddFromFile ImportFromFile Establecer VBCM = Nada Finalizar si hay error Ir a 0 Finalizar sub
Ejemplo:
ImportModuleCode ActiveWorkbook, "TestModule", "C: \ FolderName \ NewCode.txt"