U ovom ćemo članku stvoriti makronaredbu za uvoz modula u aktivnu radnu knjigu.
Kao modul koristit ćemo Filename.bas koji želimo uvesti.
Pritisnite gumb za umetanje da biste uvezli modul iz Filename.bas u aktivnu radnu knjigu.
Radna bilježnica sadrži samo jedan modul “MainModule”.
Nakon pokretanja makronaredbe, novi će se modul uvesti iz Filename.bas
Logično objašnjenje
U ovom smo članku stvorili dva makronaredbe, InsertVBComponent i Calling_Procedure
InsertVBComponent
Uzima naziv radne knjige i naziv datoteke kao ulaze i uvozi modul u radnu knjigu.
Poziv_postupak
Koristi se za pozivanje makronaredbe InsertVBComponent s aktivnom radnom knjigom i Filename.bas kao ulazima.
Objašnjenje koda
Ako Dir (CompFileName) "" Tada
Gornji kôd koristi se za provjeru postoji li naziv datoteke u direktoriju.
wb.VBProject.VBComponents.Import CompFileName
Gornji kôd koristi se za uvoz modula u aktivnu radnu knjigu.
Molimo slijedite dolje za kôd
Opcija Eksplicitna dodatna umetanjaVBComponent (ByVal wb Kao radna knjiga, ByVal CompFileName kao niz) 'Ubacuje sadržaj CompFileName -a kao novu komponentu u radnoj knjizi' CompFileName mora biti valjana VBA komponenta prilagođena za 'import (izvezena VBA komponenta)' Provjerava se je li datoteka CompFileName postoji Ako Dir (CompFileName) "" Zatim "Zanemari pogreške pri grešci Nastavi sljedeće" Ubacuje komponentu iz datoteke wb.VBProject.VBComponents.Import CompFileName pri grešci Idi na 0 Prekini ako je postavljeno wb = Ništa Kraj Sub Sub Calling_Procedure () 'Pozivanje InsertVBComponent Postupak InsertVBComponent InsertV ActiveWorkbook, "C: \ Users \ Ramandeep \ Desktop \ Filename.bas" End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte