En este artículo, crearemos una macro para importar un módulo al libro activo.

Usaremos Filename.bas como módulo, que queremos importar.

Haga clic en el botón Insertar para importar el módulo de Filename.bas al libro activo.

ArrowMain

El libro de trabajo contiene solo un módulo «MainModule».

ArrowMainModule

Después de ejecutar la macro, se importará un nuevo módulo de Filename.bas

ArrowOutput

Explicación lógica

En este artículo, hemos creado dos macros, InsertVBComponent y Calling_Procedure

InsertVBComponent

Toma el nombre del libro de trabajo y el nombre del archivo como entradas e importa el módulo al libro de trabajo.

Calling_Procedure

Se utiliza para llamar a la macro InsertVBComponent con el libro de trabajo activo y Filename.bas como entradas.

Explicación del código

Si Dir (CompFileName) <> «» Entonces, el código anterior se usa para verificar si el nombre del archivo existe en el directorio.

wb.VBProject.VBComponents.Import CompFileName El código anterior se usa para importar el módulo al libro activo.

Siga a continuación el código

Option Explicit

Sub InsertVBComponent(ByVal wb As Workbook, ByVal CompFileName As String)

' Inserts the content of CompFileName as a new component in workbook

' CompFileName must be a valid VBA component suited for

' import (an exported VBA component)

'Checking whether CompFileName file exists

If Dir(CompFileName) <> "" Then



'Ignore errors

On Error Resume Next



'Inserts component from file

wb.VBProject.VBComponents.Import CompFileName



On Error GoTo 0

End If

Set wb = Nothing

End Sub

Sub Calling_Procedure()



'Calling InsertVBComponent procedure

InsertVBComponent ActiveWorkbook, "C:\Users\Ramandeep\Desktop\Filename.bas"



End Sub

Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.

Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]