In diesem Artikel erstellen wir ein Makro, um ein Modul in die aktive Arbeitsmappe zu importieren.
Wir werden Filename.bas als Modul verwenden, das wir importieren möchten.
Klicken Sie auf die Schaltfläche Einfügen, um das Modul aus Dateiname.bas in die aktive Arbeitsmappe zu importieren.
Workbook enthält nur ein Modul „MainModule“.
Nach dem Ausführen des Makros wird ein neues Modul aus Dateiname.bas importiert
Logikerklärung
In diesem Artikel haben wir zwei Makros erstellt, InsertVBComponent und Calling_Procedure
VBKomponente einfügen
Es verwendet den Arbeitsmappennamen und den Dateinamen als Eingaben und importiert das Modul in die Arbeitsmappe.
Calling_Procedure
Es wird verwendet, um das InsertVBComponent-Makro mit der aktiven Arbeitsmappe und Dateiname.bas als Eingaben aufzurufen.
Codeerklärung
Wenn Dir(CompFileName) "" Then
Der obige Code wird verwendet, um zu überprüfen, ob der Dateiname im Verzeichnis vorhanden ist.
wb.VBProject.VBComponents.Import CompFileName
Der obige Code wird verwendet, um das Modul in die aktive Arbeitsmappe zu importieren.
Bitte folgen Sie unten für den Code
Option Explicit Sub InsertVBComponent(ByVal wb As Workbook, ByVal CompFileName As String) ' Fügt den Inhalt von CompFileName als neue Komponente in die Arbeitsmappe ein existiert If Dir(CompFileName) "" Then 'Fehler bei Fehler ignorieren Resume Next 'Fügt Komponente aus Datei wb.VBProject.VBComponents ein.Import CompFileName Bei Fehler GoTo 0 End If Set wb = Nothing End Sub Sub Calling_Procedure() 'Aufruf der InsertVBComponent-Prozedur InsertVBComponent ActiveWorkbook, "C:\Users\Ramandeep\Desktop\Filename.bas" End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site