У овом чланку ћемо креирати макро за увоз модула у активну радну свеску.
Користићемо Филенаме.бас као модул, који желимо да увеземо.
Притисните дугме за уметање да бисте увезли модул из Филенаме.бас у активну радну свеску.
Радна свеска садржи само један модул „МаинМодуле“.
Након покретања макроа, нови модул ће бити увезен из Филенаме.бас
Логичко објашњење
У овом чланку смо креирали два макроа, ИнсертВБЦомпонент и Цаллинг_Процедуре
ИнсертВБЦомпонент
Име радне свеске и назив датотеке узима као улазне податке и увози модул у радну свеску.
Цаллинг_Процедуре
Користи се за позивање макроа ИнсертВБЦомпонент са активном радном свеском и Филенаме.бас као улазима.
Објашњење кода
Ако Дир (ЦомпФилеНаме) "" Тада
Горњи код се користи за проверу да ли име датотеке постоји у директоријуму.
вб.ВБПројецт.ВБЦомпонентс.Импорт ЦомпФилеНаме
Горњи код се користи за увоз модула у активну радну свеску.
Молимо следите доле за код
Опција Експлицитна додатна уметањаВБЦомпонент (БиВал вб као радна свеска, БиВал ЦомпФилеНаме као низ) 'Убацује садржај ЦомпФилеНаме -а као нову компоненту у радној свесци' ЦомпФилеНаме мора бити важећа ВБА компонента прилагођена за 'импорт (извезена ВБА компонента)' Провера да ли је датотека ЦомпФилеНаме постоји Ако Дир (ЦомпФилеНаме) "" Затим "Занемари грешке при грешци Настави даље" Убацује компоненту из датотеке вб.ВБПројецт.ВБЦомпонентс.Импорт ЦомпФилеНаме Он Еррор ГоТо 0 Енд Иф Сет вб = Ништа Крај Суб Суб Цаллинг_Процедуре () 'Позивање процедуре ИнсертВБЦомпонент ИнсертВ АцтивеВоркбоок, "Ц: \ Усерс \ Рамандееп \ Десктоп \ Филенаме.бас" Енд Суб
Ако вам се допао овај блог, поделите га са пријатељима на Фацебооку. Такође, можете нас пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, јавите нам како можемо побољшати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште