In questo articolo, creeremo una macro per importare un modulo nella cartella di lavoro attiva.

Useremo Filename.bas come modulo, che vogliamo importare.

Fare clic sul pulsante di inserimento per importare il modulo da Filename.bas nella cartella di lavoro attiva.

ArrowMain

La cartella di lavoro contiene un solo modulo “MainModule”.

ArrowMainModule

Dopo aver eseguito la macro, verrà importato un nuovo modulo da Filename.bas

ArrowOutput

Spiegazione logica

In questo articolo abbiamo creato due macro, InsertVBComponent e Calling_Procedure

InsertVBComponent

Prende il nome della cartella di lavoro e il nome del file come input e importa il modulo nella cartella di lavoro.

Calling_Procedure

Viene utilizzato per chiamare la macro InsertVBComponent con la cartella di lavoro attiva e Filename.bas come input.

Spiegazione del codice

If Dir (CompFileName) <> “” Allora il codice sopra viene utilizzato per verificare se il nome del file esiste nella directory.

wb.VBProject.VBComponents.Import CompFileName Il codice precedente viene utilizzato per importare il modulo nella cartella di lavoro attiva.

Segui sotto per il codice

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

Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook e Facebook.

Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]