Помоћу макроа испод можете копирати модуле из једне радне свеске у другу:
Суб ЦопиМодуле (СоурцеВБ као радна свеска, стрМодулеНаме Ас Стринг, _ ТаргетВБ Ас Воркбоок) 'копира модул из једне радне свеске у другу' пример: 'ЦопиМодуле Воркбоокс ("Боок1.клс"), "Модуле1", _ Воркбоокс ("Боок2.клс ") Дим стрФолдер Ас Стринг, стрТемпФиле Ас Стринг стрФолдер = СоурцеВБ.Патх Иф Лен (стрФолдер) = 0 Тхен стрФолдер = ЦурДир стрФолдер = стрФолдер &" \ "стрТемпФиле = стрФолдер &" ~ тмпекпорт.бас "Он Еррор Ресуме Нект СоурцеВјецтВБ.П .ВБЦомпонентс (стрМодулеНаме) .Екпорт стрТемпФиле ТаргетВБ.ВБПројецт.ВБЦомпонентс.Импорт стрТемпФиле Убити стрТемпФиле при грешци ГоТо 0 Енд Суб