В тази статия ще създадем макрос за импортиране на модул в активната работна книга.
Ще използваме Filename.bas като модул, който искаме да импортираме.
Щракнете върху бутона за вмъкване, за да импортирате модула от Filename.bas в активната работна книга.
Работната книга съдържа само един модул „MainModule“.
След стартиране на макроса, нов модул ще бъде импортиран от Filename.bas
Логично обяснение
В тази статия ние създадохме два макроса, InsertVBComponent и Calling_Procedure
InsertVBComponent
Той приема името на работната книга и името на файла като входни данни и импортира модула в работната книга.
Calling_Procedure
Използва се за извикване на макроса InsertVBComponent с активната работна книга и Filename.bas като входове.
Обяснение на кода
Ако Dir (CompFileName) "" Тогава
Горният код се използва за проверка дали името на файла съществува в директорията.
wb.VBProject.VBComponents.Import CompFileName
Горният код се използва за импортиране на модул в активната работна книга.
Моля, следвайте кода по -долу
Опция Explicit Sub InsertVBComponent (ByVal wb As Workbook, ByVal CompFileName As String) „Вмъква съдържанието на CompFileName като нов компонент в работната книга„ CompFileName трябва да е валиден VBA компонент, подходящ за „импортиране (експортиран VBA компонент)“ Проверява дали CompFileName файл съществува Ако Dir (CompFileName) "" Тогава "Игнориране на грешки при грешка възобновяване на следващата" Вмъква компонент от файл wb.VBProject.VBComponents.Импортирайте CompFileName при грешка GoTo 0 End If Set wb = Нищо Край Sub Sub Calling_Procedure () 'Извикване InsertVBComponent процедура InsertV ActiveWorkbook, "C: \ Users \ Ramandeep \ Desktop \ Filename.bas" End Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта