Importe un módulo desde un archivo usando VBA en Microsoft Excel
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.
El libro de trabajo contiene solo un módulo «MainModule».
Después de ejecutar la macro, se importará un nuevo módulo de Filename.bas
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]