Tässä artikkelissa luomme makron, joka tuo moduulin aktiiviseen työkirjaan.
Käytämme Filename.bas -moduulia, jonka haluamme tuoda.
Tuo moduuli Filename.basista aktiiviseen työkirjaan napsauttamalla lisäyspainiketta.
Työkirja sisältää vain yhden moduulin ”MainModule”.
Makron suorittamisen jälkeen uusi moduuli tuodaan tiedostosta Filename.bas
Looginen selitys
Tässä artikkelissa olemme luoneet kaksi makroa, InsertVBComponent ja Calling_Procedure
LisääVBComponent
Se ottaa työkirjan nimen ja tiedostonimen syötteeksi ja tuo moduulin työkirjaan.
Soittaminen_menettely
Sitä käytetään kutsumaan InsertVBComponent -makroa, jossa on aktiivinen työkirja ja Filename.bas.
Koodin selitys
Jos Dir (CompFileName) "" Sitten
Yllä olevaa koodia käytetään tarkistamaan, onko tiedostonimiä hakemistossa.
wb.VBProject.VBComponents.Import CompFileName
Yllä olevaa koodia käytetään moduulin tuomiseen aktiiviseen työkirjaan.
Seuraa koodia alla
Option Explicit Sub InsertVBComponent (ByVal wb As Workbook, ByVal CompFileName as String) 'Lisää CompFileName -sisällön uutena osana työkirjassa' CompFileName on oltava kelvollinen VBA -komponentti, joka soveltuu tuontiin (viety VBA -komponentti) Tarkistetaan, onko CompFileName -tiedosto olemassa Jos Dir (CompFileName) "" Sitten "Ohita virheet Virhe Jatka seuraavaksi" Lisää komponentin tiedostosta 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
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse