I den här artikeln kommer vi att skapa ett makro för att importera en modul till den aktiva arbetsboken.
Vi kommer att använda Filename.bas som en modul, som vi vill importera.
Klicka på infoga -knappen för att importera modulen från Filename.bas till den aktiva arbetsboken.
Arbetsboken innehåller bara en modul "MainModule".
Efter att ha kört makrot kommer en ny modul att importeras från Filename.bas
Logisk förklaring
I den här artikeln har vi skapat två makron, InsertVBComponent och Calling_Procedure
InsertVBComponent
Det tar arbetsbokens namn och filnamn som inmatningar och importerar modulen till arbetsboken.
Calling_Procedure
Den används för att anropa InsertVBComponent -makrot med den aktiva arbetsboken och Filnamn.bas som ingångar.
Kodförklaring
If Dir (CompFileName) "" Då
Ovanstående kod används för att kontrollera om filnamnet finns i katalogen.
wb.VBProject.VBComponents.Import CompFileName
Ovanstående kod används för att importera modul till den aktiva arbetsboken.
Följ koden nedan
Alternativ Explicit Sub InsertVBComponent (ByVal wb As Workbook, ByVal CompFileName As String) 'Infogar innehållet i CompFileName som en ny komponent i arbetsboken' CompFileName måste vara en giltig VBA -komponent som är lämplig för 'import (en exporterad VBA -komponent)' Kontrollerar om CompFileName -fil existerar Om Dir (CompFileName) "" Då "Ignorera fel vid fel Återuppta nästa" Infogar komponent från filen wb.VBProject.VBComponents.Import CompFileName På fel GoTo 0 End If Set wb = Nothing End Sub Sub Calling_Procedure () 'Calling InsertVBComponent procedure InsertVBComponent ActiveWorkbook, "C: \ Users \ Ramandeep \ Desktop \ Filename.bas" Avsluta sub
Om du gillade den här bloggen, dela den med dina vänner på Facebook. Du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen