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 !
|