I denne artikel opretter vi en makro til import af et modul til den aktive projektmappe.
Vi vil bruge Filename.bas som et modul, som vi vil importere.
Klik på indsæt -knappen for at importere modulet fra Filename.bas til den aktive projektmappe.
Workbook indeholder kun ét modul "MainModule".
Efter at have kørt makroen, importeres et nyt modul fra Filename.bas
Logisk forklaring
I denne artikel har vi oprettet to makroer, InsertVBComponent og Calling_Procedure
InsertVBComponent
Det tager projektmappens navn og filnavn som input og importerer modulet til projektmappen.
Calling_Procedure
Det bruges til at kalde InsertVBComponent -makroen med den aktive projektmappe og Filnavn.bas som input.
Kode forklaring
Hvis Dir (CompFileName) "" Så
Ovenstående kode bruges til at kontrollere, om filnavnet findes i biblioteket.
wb.VBProject.VBComponents.Import CompFileName
Ovenstående kode bruges til at importere modul til den aktive projektmappe.
Følg venligst nedenstående for koden
Option Eksplicit under InsertVBComponent (ByVal wb As Workbook, ByVal CompFileName As String) 'Indsætter indholdet af CompFileName som en ny komponent i projektmappen' CompFileName skal være en gyldig VBA -komponent, der er egnet til 'import (en eksporteret VBA -komponent)' Kontrollerer, om CompFileName -fil eksisterer Hvis Dir (CompFileName) "" Så "Ignorer fejl ved fejl Genoptag næste" Indsætter komponent fra fil wb.VBProject.VBComponents.Import CompFileName på fejl GoTo 0 End If Set wb = Intet slut Sub Sub Calling_Procedure () 'Opkald til InsertVBComponent procedure InsertVBComponent ActiveWorkbook, "C: \ Users \ Ramandeep \ Desktop \ Filename.bas" Afslut Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet