I denne artikkelen vil vi lage en makro for å importere en modul til den aktive arbeidsboken.
Vi vil bruke Filename.bas som en modul, som vi ønsker å importere.
Klikk på Sett inn -knappen for å importere modulen fra Filename.bas til den aktive arbeidsboken.
Arbeidsbok inneholder bare en modul "MainModule".
Etter at du har kjørt makroen, importeres en ny modul fra Filename.bas
Logisk forklaring
I denne artikkelen har vi opprettet to makroer, InsertVBComponent og Calling_Procedure
InsertVBComponent
Den tar arbeidsboknavnet og filnavnet som inndata, og importerer modulen til arbeidsboken.
Calling_Procedure
Den brukes til å kalle InsertVBComponent -makroen med den aktive arbeidsboken og Filnavn.bas som innganger.
Kode forklaring
If Dir (CompFileName) "" Da
Koden ovenfor brukes til å kontrollere om filnavnet finnes i katalogen.
wb.VBProject.VBComponents.Import CompFileName
Koden ovenfor brukes til å importere modulen til den aktive arbeidsboken.
Følg koden nedenfor
Option Explicit Sub InsertVBComponent (ByVal wb As Workbook, ByVal CompFileName As String) 'Setter inn innholdet i CompFileName som en ny komponent i arbeidsboken' CompFileName må være en gyldig VBA -komponent egnet for 'import (en eksportert VBA -komponent)' Kontrollerer om CompFileName -fil eksisterer Hvis Dir (CompFileName) "" "Så" Ignorer feil ved feil Gjenoppta neste "Setter inn komponent fra filen wb.VBProject.VBComponents.Import CompFileName På feil 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
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post