Copiar un modulo de una excel a otro libro usando VBA


Lo primero es dar permisos en el “centro de confianza” para poder acceder a tocar el codigo VBA con macros:

El codigo que habria que poner para copiar un modulo seria el siguiente:

'definir una Ruta
Ruta = "C:\Prueba\Modulo1.bas"
'exportar el módulo VBA "Modulo1" del archivo de excel "Origen.xls" a "C:\Prueba\Modulo1.bas"
Workbooks("Origen.xls").VBProject.VBComponents("Modulo1").Export Ruta
'importar módulo VBA que se ha exportado en el libro "Destino.xls"
Workbooks("Destino.xls").VBProject.VBComponents.Import Ruta
'suprimir el archivo plano
Kill Ruta



Hay que darse cuenta que los archivos excel de Origen y de Destino tienen que estar abiertos antes para que funcione. Así como que la carpeta de la ruta que se seleccione debe estar creada previamente. El módulo también se podría exportar en un txt cambiando la extensión en la ruta.

Comentarios

  1. Alberto 22 de marzo de 2019 a las 16:02

    Hola, Quisiera saber si es posible sobre escribir sheets1 o thisworkbook

    ResponderEliminar

Publicar un comentario

Entradas populares de este blog

Convertir un número en letra en español en Excel

Esta macro es una adaptación de la macro "How to convert a numeric value into English words in Excel" que Microsoft tiene colgada aquí https://support.microsoft.com/es-es/help/213360/how-to-convert-a-numeric-value-into-english-words-in-excel Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber)     Dim Euros, Cents, Temp     Dim DecimalPlace, Count     ReDim Place(9) As String     Place(2) = " Mil "     Place(3) = " Millones "     Place(4) = " Mil Millones "     Place(5) = " Billones "     ' String representation of amount.     MyNumber = Trim(Str(MyNumber))     ' Position of decimal place 0 if nUn.     DecimalPlace = InStr(MyNumber, ".")     ' Convert cents and set MyNumber to dollar amount.     If DecimalPlace > 0 Then         Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _    ...
Leer más

Renombrar Archivos o Carpetas

Os traigo una macro para Excel que permite renombrar los archivos, las carpetas, e incluso mover los archivos  o las carpetas. Para que funcione en Excel debemos hacer dos columnas contiguas: en la primera pondremos la rutas que queramos cambiar (por ejemplo la Columna A), y  en la siguiente columna (es este caso Columna B) la nueva ruta. La macro va a empezar en la celda que estáis seleccionando (por ejemplo la celda A1) y continuando en las filas siguientes hasta la primera celda que esté en blanco. Este es el código: Sub RenombrarDirectorio() Ruta = "" Set Celda = Selection 'Abrir un While que funcione mientras la variable "celda" no este vacia While Celda <> ""     Name Ruta & Celda.Value As Ruta & Celda.Offset(0, 1).Value     Set Celda = Celda.Offset(1, 0) Wend End Sub Fijaros que la variable  Ruta  está vacía haciendo que se deba poner la ruta entera en la celda (p.e. C:\Prueba\Libro1.xlsx), pero si...
Leer más