VB Code von einem Macro aus in ein externes WB einfügen

[steffenp]

Hallo Forengemeinde

ich möchte gerne von einem Macro aus einem VB Code in ein anderes
Workbook einfügen.
weis aber nicht so genau wo ich anfangen soll.
diese Schritte habe ich bisher vorgenommen

einbinden der Microsoft Visual Basic for Application Extensibility 5.3

mmmh das war es auch schon fast, weil alle meine Versuche nichts
gebracht haben..

achja das File, den Path zum File und den Code habe ich. Nur leiler
fällt mir der next und Schritt sehr schwer. Könnte mir evt jemand
unter die Arme greifen? oder einen nützlichen Tip geben wie ich
anfangen muss..

THX für Eure Zeit und Nerven :}
MFG steffenp
win2k_sp3_-_office03_sp2

[Dr. Eckehard Pfeifer]

Hallo, teste mal so was

Sub test()
Dim vbcs As VBComponents
Dim vbc As VBComponent
Set vbcs = ThisWorkbook.VBProject.VBComponents
Set vbc = vbcs.Import("Filename")
MsgBox vbc.CodeModule.CountOfLines
Set vbc = vbcs.Add(vbext_ct_StdModule)
vbc.CodeModule.AddFromString "Sub a()" & vbCrLf & "Msgbox
""Hallo""" & vbCrLf & "End Sub"
vbc.CodeModule.AddFromFile "Filename"
End Sub

--
MfG EP
Entwicklung - Beratung - Training (www.dr-e-pfeifer.net)
(Microsoft Certified Application Developer)
neu: MS Office 2003 - Das Entwicklerbuch (ISBN 3-86063-688-X)

[steffenp]

hallo

ich glaube mit iesen beiden zeilen stimmt etwas nicht.. oder ich habe
es falsch verstanden

Set vbcs = ThisWorkbook.VBProject.VBComponents
Set vbc = vbcs.Import("Filename")

ich versteh aus diesen zeilen das er das ganze file importieren will,
is das korrekt? wenn ja; wie passt das dann zu dem VBComponents ?
also ich habe es natürlich probier aber der debugger sagt mit immer
das er das file nicht laden kann..

[Dr. Eckehard Pfeifer]

Set vbc = vbcs.Import(ThisWorkbook.Path & "\modtest.bas")

funktioniert ohne probleme, wenn es eine bas-Datei ist, aber auch ein
Textdatei wird geladen.

Reinen Text laedst Du auch mit

Set vbc = vbcs.Add(vbext_ct_StdModule)
vbc.CodeModule.AddFromFile ThisWorkbook.Path & "\test.txt"

hinzufuegen lassen.

Ich nehme an, das Problem besteht im Pfad.

[steffenp]

hallo

ich glaube ich lasse das Thema sein. und werde mich auf die gute alte
Handarbeit verlassen.
ich habe den oben genannten Vorschlag probiert und es läuft auch. aber
das sist nicht das was ich wollte.
-> die Files auf denen der Protect läuft und das Macro in
"diesesArbeitsblatt" eingefügt werden sollte, werden 1x im Monat neu
erzeugt.
Und ich wollte eben die Handarbeit ersparen. Aber so müsste ich ja in
jedes File noch ein Modul einfügen und dann kann ich auch gleich via
Copy & Paste den code einfügen.

Trotzdem Danke für Ihre Hilfe
Ich habe eine Menge dazu gelernt :}

MfG steffenp
win2k_sp4_-_office03_sp2