Copie módulos de un libro de trabajo a otro usando VBA en Microsoft Excel

Anonim

Con la siguiente macro, puede copiar módulos de un libro de trabajo a otro:

Sub CopyModule (SourceWB como libro de trabajo, strModuleName como cadena, _ TargetWB como libro de trabajo) 'copia un módulo de un libro de trabajo a otro' ejemplo: 'CopyModule Workbooks ("Book1.xls"), "Module1", _ Workbooks ("Book2.xls ") Dim strFolder como cadena, strTempFile como cadena strFolder = SourceWB.Path Si Len (strFolder) = 0 Then strFolder = CurDir strFolder = strFolder &" \ "strTempFile = strFolder &" ~ tmpexport.bas "En caso de error Reanudar Siguiente SourceWB.VBProject .VBComponents (strModuleName) .Exportar strTempFile TargetWB.VBProject.VBComponents.Import strTempFile Kill strTempFile en caso de error Ir a 0 End Sub