Verweise in der VBA-Umgebung softwaremäßig abfragen / ändern...
Stefan Sprickmann Kerkerinck
wie kann ich die im VBA-Editor über "Extras-Verweise" einzubindenden Bibliotheken softwaregesteuert einbinden lassen?
Ich entwickle auf einer Maschine, wo andere Office-Versionen laufen als diejenigen Rechner haben, die nachher mit dem VBA-Programm arbeiten sollen,
d.h. es wäre super,
a. Abfragen zu können, welche Bibliotheken existieren
b. Nicht vorhandene, jedoch referenzierte zu entfernen, bevor Fehler
auftreten,
c. dafür andere einzubinden.
Wer weiß, wie's geht?? Danke im voraus ...
--
Stefan, s...@k22.de
Bitte keine Werbung - please no commercials !!
Robert Gelbmann
---"Stefan Sprickmann Kerkerinck" <s...@k22.de> schrieb ...
> wie kann ich die im VBA-Editor über "Extras-Verweise" einzubindenden
Bibliotheken
> softwaregesteuert einbinden lassen?
> Ich entwickle auf einer Maschine, wo andere Office-Versionen laufen als
diejenigen Rechner haben,
> die nachher mit dem VBA-Programm arbeiten sollen,
> d.h. es wäre super,
> a. Abfragen zu können, welche Bibliotheken existieren
> b. Nicht vorhandene, jedoch referenzierte zu entfernen, bevor Fehler
> auftreten,
> c. dafür andere einzubinden.
Sieh dir mal die folgende Objektliste an:
ActiveWorkbook.VBProject.References
Da solltest du alles Gesuchte finden können.
z.B.:
MsgBox ActiveWorkbook.VBProject.References(1).IsBroken
Ebenso lassen sich damit neue Verweise legen und alte löschen.
Allerdings ist es nicht unwahrscheinlich, dass es schon zu Fehlermeldungen
kommt, noch bevor du Gelegenheit hattest, den fehlerhaften Verweis zu
entfernen. Falls dies ein Problem ist, so könnte man/frau es dann wohl damit
umgehen, dass zu Beginn keine fehlerhaften ("gebrochenen") Verweise im
Projekt enthalten sind (sein können) und die benötigten Verweise stets via
VBA gelegt werden ...
--
In der Hoffnung geholfen zu haben, verbleibe ich auch im Neuen Jahrtausend
mit einem leisen
Servus aus Wien,
-Robert Gelbmann-
---
MS MVP CE for Excel
http://www.roehrenbacher.at/erc/faq/
Stef...@iname.com
danke für den Tip - das Abfragen diverser Eigenschaften von Verweisen
klappt auch super, aber ich finde nirgendwo den Hinweis, wie's mit
Entfernen oder Hinzufügen aussieht (REMOVE geht zB nicht, bringt nur
Fehler...)
Kannst Du mir noch einen Tip geben? Danke schön...
Gruß aus Nürnebrg,
Stefan.
In article <uQ5qDf7eAHA.1820@tkmsftngp05>,
"Robert Gelbmann" <rgel...@mvps.org> wrote:
[schnipp],
> > die nachher mit dem VBA-Programm arbeiten sollen,
> > d.h. es wäre super,
> > a. Abfragen zu können, welche Bibliotheken existieren
> > b. Nicht vorhandene, jedoch referenzierte zu entfernen, bevor Fehler
> > auftreten,
> > c. dafür andere einzubinden.
>
> Sieh dir mal die folgende Objektliste an:
>
> ActiveWorkbook.VBProject.References
>
> Da solltest du alles Gesuchte finden können.
>
> z.B.:
> MsgBox ActiveWorkbook.VBProject.References(1).IsBroken
>
> Ebenso lassen sich damit neue Verweise legen und alte löschen.
> Allerdings ist es nicht unwahrscheinlich, dass es schon zu
Fehlermeldungen
> kommt, noch bevor du Gelegenheit hattest, den fehlerhaften Verweis zu
> entfernen. Falls dies ein Problem ist, so könnte man/frau es dann
wohl damit
> umgehen, dass zu Beginn keine fehlerhaften ("gebrochenen") Verweise im
> Projekt enthalten sind (sein können) und die benötigten Verweise
stets via
> VBA gelegt werden ...
[schnapp]
Sent via Deja.com
http://www.deja.com/
Robert Gelbmann
---<Stef...@iname.com> schrieb ...
> Hallo Robert,
> danke für den Tip - das Abfragen diverser Eigenschaften von Verweisen
> klappt auch super, aber ich finde nirgendwo den Hinweis, wie's mit
> Entfernen oder Hinzufügen aussieht (REMOVE geht zB nicht, bringt nur
> Fehler...)
Das Entfernen mit Remove ist für VBA etwas atypisch wie folgt möglich:
ActiveWorkbook.VBProject.References.Remove
ActiveWorkbook.VBProject.References(1)
Zum Hinzufügen musst du entweder den Dateinamen für den Verweis oder aber
die GUID (eine weltweit eindeutig Nummer, die du in der Windows-Registry
nachlesen kannst) für die entsprechende Datei kennen ("xxx" ist jeweils zu
ersetzen):
ActiveWorkbook.VBProject.References.AddFromFile "xxx"
ActiveWorkbook.VBProject.References.AddFromGuid "xxx"