В этой статье мы создадим макрос для импорта модуля в активную книгу.

Мы будем использовать Filename.bas в качестве модуля, который мы хотим импортировать.

Нажмите кнопку вставки, чтобы импортировать модуль из Filename.bas в активную книгу.

ArrowMain

Книга содержит только один модуль «MainModule».

ArrowMainModule

После запуска макроса новый модуль будет импортирован из Filename.bas

ArrowOutput

Логическое объяснение

В этой статье мы создали два макроса: InsertVBComponent и Calling_Procedure

InsertVBComponent

Он принимает имя книги и имя файла в качестве входных данных и импортирует модуль в книгу.

Calling_Procedure

Он используется для вызова макроса InsertVBComponent с активной книгой и Filename.bas в качестве входных данных.

Объяснение кода

Если Dir (CompFileName) <> «» То код выше используется для проверки, существует ли имя файла в каталоге.

wb.VBProject.VBComponents.Import CompFileName Приведенный выше код используется для импорта модуля в активную книгу.

Пожалуйста, введите код ниже

Option Explicit

Sub InsertVBComponent(ByVal wb As Workbook, ByVal CompFileName As String)

' Inserts the content of CompFileName as a new component in workbook

' CompFileName must be a valid VBA component suited for

' import (an exported VBA component)

'Checking whether CompFileName file exists

If Dir(CompFileName) <> "" Then



'Ignore errors

On Error Resume Next



'Inserts component from file

wb.VBProject.VBComponents.Import CompFileName



On Error GoTo 0

End If

Set wb = Nothing

End Sub

Sub Calling_Procedure()



'Calling InsertVBComponent procedure

InsertVBComponent ActiveWorkbook, "C:\Users\Ramandeep\Desktop\Filename.bas"



End Sub

Если вам понравился этот блог, поделитесь им с друзьями на Facebook и Facebook.

Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]