Šajā rakstā mēs izveidosim makro moduļa importēšanai aktīvajā darbgrāmatā.
Mēs izmantosim Filename.bas kā moduli, kuru vēlamies importēt.
Noklikšķiniet uz pogas Ievietot, lai importētu moduli no Filename.bas uz aktīvo darbgrāmatu.
Darbgrāmatā ir tikai viens modulis “MainModule”.
Pēc makro palaišanas no Filename.bas tiks importēts jauns modulis
Loģisks skaidrojums
Šajā rakstā mēs esam izveidojuši divus makro - InsertVBComponent un Calling_Procedure
InsertVBComponent
Tā ņem vērā darbgrāmatas nosaukumu un faila nosaukumu kā ieeju un importē moduli darbgrāmatā.
Zvanīšana_Procedūra
To izmanto, lai izsauktu makro InsertVBComponent ar aktīvu darbgrāmatu un Filename.bas kā ievadi.
Koda skaidrojums
Ja Dir (CompFileName) "" Tad
Iepriekš minētais kods tiek izmantots, lai pārbaudītu, vai direktorijā ir faila nosaukums.
wb.VBProject.VBComponents.Import CompFileName
Iepriekš minētais kods tiek izmantots, lai importētu moduli aktīvajā darbgrāmatā.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub InsertVBComponent (ByVal wb kā darbgrāmata, ByVal CompFileName kā virkne) "ievieto CompFileName saturu kā jaunu sastāvdaļu darbgrāmatā" CompFileName jābūt derīgam VBA komponentam, kas piemērots importēšanai (eksportēts VBA komponents). Pārbaude, vai fails CompFileName pastāv Ja Dir (CompFileName) "" Tad "Ignorēt kļūdas On Erme Resume Next" Ievieto komponentu no faila 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" beigu apakš
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē