Agregue contenido a un módulo desde un archivo usando VBA en Microsoft Excel

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"

Va a ayudar al desarrollo del sitio, compartir la página con sus amigos

wave wave wave wave wave