Ein importiertes Modul umbenennen

13.06.2002


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 !