Re(3): Verweise mittels VBA

Verweise mittels VBA (8 Beiträge, 166 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Ich habe eine Excel-Datei mit einigen Makros.
Da dieses Excel an eine große Zahl von Personen geschickt wird, möchte ich mittels VBA schon sichersteleln, dass gewisse Verweise gesetzt sind, dmit es funktioniert.

Ich hab jetzt mittels google schon etliche Seiten gefunden, wo das Thema behandelt wird.
Ich z.B. schon eine Funktion geschrieben, die die vorhandenenVerweise sichert:

Public Sub VerweiseSichern(Optional DateiName)
Dim F As Integer
    Worksheets("Parameter").Activate
    F = 1
    For i = 1 To ActiveWorkbook.VBProject.References.Count
        Cells(F, 3) = ActiveWorkbook.VBProject.References(i).Name
        Cells(F, 4) = ActiveWorkbook.VBProject.References(i).GUID
        Cells(F, 5) = ActiveWorkbook.VBProject.References(i).Major
        Cells(F, 6) = ActiveWorkbook.VBProject.References(i).Minor

        F = F + 1
    Next i
End Sub

Nun wollt eich mittels AddFromGuid dieVerweise aktivieren:
Public Sub VerweiseHerstellen(Optional DateiName)
Dim F As Integer
    Worksheets("Parameter").Activate
    F = 1
    For i = 1 To 6
        Application.VBE.ActiveVBProject.References.AddFromGuid Cells(i, 4), Cells(i, 5), Cells(i, 6)
    Next i
End Sub

Leider bekomme ich da immer eine Fehlermeldung Objektbibliothek nicht registriert.
Habs auch schon mit ....  ThisWorkbook.VBProject.References.AddFromGuid ...
probiert.

Hab das ganze aufgrund folgender Seiten aufgebaut:
http://www.ms-office-forum.net/forum/archive/index.php/index.php?t-241513.html
und
http://www.excelthoughts.com/2005/06/removing-broken-references-and-adding.html

Was muss ich da noch berücksichtigen, dass aber nirgends steht?

Danke

PS: Ich verwende OFfice 2003

emefge
Infosauger
_____________________________________________________________________________

Weil die Lichtgeschwindigkeit höher als die Schallgeschwindigkeit ist, hält man viele Leute für helle Köpfe bis man sie reden hört.

"Bekomme ich bei Ihnen so einen ganz kleinen Lötkolben zum CPU reparieren?"

Wieso Realität? Ich hab doch verdammt noch mal was Besseres zu tun!

14.09.2009, 10:57 Uhr - Editiert von Infosauger, alte Version: hier

Re: Verweise mittels VBA (hariw am 14.09.2009, 11:08:23)

Re(2): Verweise mittels VBA (Infosauger am 14.09.2009, 11:18:32)

Re(3): Verweise mittels VBA (hariw am 14.09.2009, 11:22:06)

Re: Verweise mittels VBA (Thing am 14.09.2009, 20:57:31)

Re(2): Verweise mittels VBA (Infosauger am 17.09.2009, 17:08:02)

Hmm, also dann kann ich mir eigentlich nur eine defekte Installation der MS-Forms-Komponente vorstellen. Google wirft zum Thema "Microsoft Forms" ja einiges an Problemen aus, die in diese Richtung gehen.

z.B.
http://www.pc-special.net/windows-xp-f5/fehlermeldung-microsoft-forms-t20416.html
http://www.digital-inn.de/ms-excel/20802-microsoft-forms-probleme.html

Interessant wären vielleicht folgende Fragen:
a) Tritt das Problem auf allen Geräten auf oder nur auf einzelnen?
b) Tritt auf einem Problemgerät das Problem nur in Zusammenhang mit MS-Forms auf oder auch mit anderen Referenzen (z.B. "Microsoft Scripting Runtime")?
c) Kann man auf einem Problemgerät händisch diese Referenz setzen oder erhält man dabei auch Fehler?

Falls da wirklich etwas kaputt ist, dann müsste das natürlich erst repariert werden. Falls aber alles okay ist, dann sollte das imho auch so unproblematisch laufen wie ich in meinem obigen Posting erwähnt habe. Ich bin leider momentan technisch ein bisschen eingeschränkt und kann das konkrete Verhalten daher in den nächsten Tagen auch nicht experimentell ermitteln.

Wenn es jedenfalls wirklich grundsätzlich so wäre, dass man für "portable" Excel-Dateien die benötigten Referenzen per Code am Zielgerät setzen muss, dann müssten entsprechende Code-Konstrukte (ähnlich den Zeilen in Deinem Eröffnungs-Posting) eigentlich in fast allen Excel-VBA-Skripts enthalten sein.

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung