Додајте садржај модулу из датотеке помоћу ВБА у Мицрософт Екцелу

Anonim

Ако не желите да додате комплетан модул, можете да додате само процедуре које недостају
на постојећи модул користећи доњи макро. Додаје садржај текстуалне датотеке постојећем модулу:

Суб ИмпортМодулеЦоде (БиВал вб Као радна свеска, _ БиВалНазив модула као низ, БиВал ИмпортФромФиле Као Стринг) 'увози код у МодулеНаме у вб из текстуалне датотеке под називом ИмпортФромФиле Дим ВБЦМ као ЦодеМодуле Ако Дир (ИмпортФромФиле) = "" Затим наставите грешку Следећи на грешку Подесите ВБЦМ = вб.ВБПројецт.ВБЦомпонентс (МодулеНаме) .ЦодеМодуле Ако није ВБЦМ је ништа, тада ВБЦМ.АддФромФиле ИмпортФромФиле Сет ВБЦМ = Ништа се завршава ако је грешка Иди на 0 Крај Суб

Пример:

ИмпортМодулеЦоде АцтивеВоркбоок, "ТестМодуле", "Ц: \ Име фасцикле \ НевЦоде.ткт"