W tym artykule utworzymy makro do importowania modułu do aktywnego skoroszytu.
Będziemy używać Filename.bas jako modułu, który chcemy zaimportować.
Kliknij przycisk wstawiania, aby zaimportować moduł z Filename.bas do aktywnego skoroszytu.
Skoroszyt zawiera tylko jeden moduł „MainModule”.
Po uruchomieniu makra nowy moduł zostanie zaimportowany z Filename.bas
Wyjaśnienie logiczne
W tym artykule stworzyliśmy dwa makra, InsertVBComponent i Calling_Procedure
Wstaw komponent VB
Pobiera nazwę skoroszytu i nazwę pliku jako dane wejściowe i importuje moduł do skoroszytu.
Wywołanie_Procedura
Służy do wywołania makra InsertVBComponent z aktywnym skoroszytem i plikiem Nazwa pliku.bas jako danymi wejściowymi.
Wyjaśnienie kodu
Jeśli Dir(CompFileName) "" Wtedy
Powyższy kod służy do sprawdzenia, czy nazwa pliku istnieje w katalogu.
wb.VBProject.VBComponents.Import CompFileName
Powyższy kod służy do importowania modułu do aktywnego skoroszytu.
Proszę postępować zgodnie z poniższym kodem!
Option Explicit Sub InsertVBComponent(ByVal wb As Workbook, ByVal CompFileName As String) ' Wstawia zawartość CompFileName jako nowy składnik do skoroszytu ' CompFileName musi być prawidłowym składnikiem VBA nadającym się do ' importu (eksportowany składnik VBA) 'Sprawdzanie, czy plik CompFileName istnieje If Dir(CompFileName) "" Then 'Ignoruj błędy w przypadku błędu Wznów dalej 'Wstawia składnik z pliku wb.VBProject.VBComponents.Import CompFileName w przypadku błędu GoTo 0 End If Set wb = Nothing End Sub Sub Calling_Procedure() 'Wywoływanie procedury InsertVBComponent InsertVBComponent ActiveWorkbook, „C:\Users\Ramandeep\Desktop\Filename.bas” End Sub
Jeśli podobał Ci się ten blog, podziel się nim ze znajomymi na Facebooku. Możesz również śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy poprawić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail