Befindet sich ein Modul als separate Datei auf der Festplatte
kann man dieses leicht importieren.
Um dieses Modul allerdings umzubenennen müsste man den Namen
des gerade importieren Moduls kennen.
Da Excel den Namen automatisch vergibt kann man ihn also nicht
ermitteln.
Aber:
Nach dem Importieren steht dieses Modul für Excel an letzter
Stelle,
somit wird das Umbenennen zum Kinderspiel:
Private Sub Import_und_umbenennen()
On Error Resume Next
Dateiname = "C:\temp\modul1.bas"
Modulname = "MeinModul"
Set VBP = Application.VBE.ActiveVBProject
With VBP
.VBComponents.Import Dateiname
.VBComponents(.VBComponents.Count).Name = Modulname
End With
If Err.Number <> 0 Then MsgBox Err.Description
End Sub
Bitte beachten Sie:
Es darf noch kein Modul, Klassenmodul o.ä. mit dem angegebenen Namen
existieren. Ebenso darf Ihr VBA-Projekt nicht diesen Namen tragen !
|
