Zeilenweise Code importieren

09.08.2002


Anstatt ein gesamtes Modul zu importieren
kann man dieses auch zeilenweise einlesen und in ein Modul schreiben.

In diesem Beispiel wird die Datei C:\Temp\Modul1 in
DieseArbeitsmappe zeilenweise übertragen: 
Sub Zeilenweise_importieren()
    Set VBP = ActiveWorkbook.VBProject. _
       VBComponents("DieseArbeitsmappe")
    'vorhandenen Code löschen
    a = VBP.CodeModule.CountOfLines
    VBP.CodeModule.DeleteLines 1, a
    Dateiname = "c:\temp\modul1.bas"
    Zeile = 0
    'Zeilenweise einlesen und schreiben
    Open Dateiname For Input As #1
    Do While Not EOF(1)
        Zeile = Zeile + 1
        Line Input #1, s
        If Zeile > 1 Then VBP.CodeModule.InsertLines Zeile, s
    Loop
    Close #1
End Sub