Office: (Office 2010) Verweise per code neu setzten

Hallo zusammen,

folgender Sachverhalt: Habe eine MS-Access Anwendung laufen, die sowohl unter windows 7 / Access 2010 als auch unter windows 10 / Access 2013 zum Einsatz kommt. Neben VBA und Access sind zusätzlich noch die DAO, Office, VBIDE, stdole, Excel und Outlook Libraries eingebunden, die ich per vba überprüfe und entsprechend neu setzte. Das klappt aber nur von win7/Acc2010 nach win10/Acc2013, aber nicht umgekehrt. Scheitern tut das Ganze bei der Excel- und Outlook Library. Schaue ich mir dies bei Verweise an, sind alle genannten Verweise angehakt, aber bei diesen beiden steht: "Nicht vorhanden: MS Excel ..."

Code:

Komme ich in der Schleife zu diesem Punkt, wird die Fehlermeldung "Fehler beim Laden einer DLL" geworfen und es geht nicht mehr weiter (es sei denn, ich setzte die Verweise im Editiermodus eines Moduls unter Extras - Verweise korrekt).

Wie kann ich trotzdem die Verweise per code durchlaufen, die falsch angehakten deaktivieren und die richtigen Verweise hinzufügen?

:)

 

Bei nicht vorhersehbaren Office-Versionen sollte man besser auf Late-Binding umsteigen und nur Features verwenden, die auch von der kleinsten Version unterstützt werden.

 

Hallo,
hinzu kommt noch, dass man nmK die Verweise in einer ACCDE nicht manipulieren kann. Spätestens in einer solchen Lieferversion scheitert dein Verfahren.

Also Latebinding *Smilie

 

Google mal nach "Verweise (Excel, Outlook) automatisch von 16.0 auf 14.0 object library setzen".

Ich kann den Link, nicht posten, da die Forensoftware das verhindert.
Dort findest du eine Lösung.
Late Binding hat ja auch Nachteile, die für mich höchst unangenehm wären. Es gibt keine Events. Für die meisten ohne Bedeutung da sie Events außerhalb der Formulare nicht nutzen geschweige denn kennen.


LG Markus

 

Hallo!

[OT, aber vielleicht trotzdem intressant *wink.gif*]

Die Events gibt es schon. Man kann nur nicht mehr so komfortabel darauf reagieren.

Events aus COM-Objekten verwenden, die mittels Late binding instanziert wurden: Beispiel LateBindingEventBridge
... ist aber viel umständlicher als mit eingebundenen Verweisen.

mfg
Josef

 

Hallo Steffen,

ich liefere nicht. Das ist eine Anwendung, die ausschließlich ich benutze, aber - wie gesagt - teilweise auf unterschiedlichen Rechnern und Versionen.

 

Hallo,

wenn Du nicht Late-Bound arbeiten willst, dann musst Du konsequent alle Entwicklungen auf dem kleinsten/ältesten Office-System vornehmen.
Beim Ausführen der fertigen Applikationen auf einem höheren/neuerem Office-System werden die Office-Verweise ohne Dein Zutun von alleine aktualisiert (Kompatibilität).

 

also, late binding hab ich mir angeschaut, verstehe ich, aber dann müsste ich ja alle sonst eingebundenen Funktionen, die ich so brauche und mir die Library liefert, nachbauen.

Das was ich wissen will, ist einfach nur: Wenn ein angehakter Verweis nicht mehr gültig ist, weil Pfad nicht stimmt, etc - also ein angekakter Verweis, der "Nicht vorhanden .... " ist, kann ich diesen per vba abhaken und den richtigen Verweis anhaken?

In der Schleife kann ich diesen Punkt ja anscheinend nicht ansteuern, weil Fehler geschmissen wird.

Gruß Jörg

 

Hallo,

Was meinst du damit?
In den meisten Fällen musst lediglich alle verwendeten Excel, Outlookkonstanten selbst definieren.

Btw: Ich arbeite seit Jahren mit Latebindung und halte das auf Grund der geringeren Fehlerquellen (nich vollständig verwiesene Objekte) bei der Entwicklung für wesentlich effektiver.
Man kann natürlich aus 2-gleisig Entwicklung/Auslieferung fahren (bedingte Kompilierung).

In welcher Zeile wird der Fehler ausgegeben?

 

Nein.

mfg
Josef

 

Code:

Gleich hier springt er aus der Schleife bei der "Nicht vorhanden ..."-Referenz

 

Ja genau da hab ich dann so meine Probleme - siehe Funktion:
Code:

 

Hi!

Du musst die Variablen nur als object anlegen, der Rest funktioniert dann wie gehabt.

Gruss
Jones

 

Hallo,
ganz wichtig !!! Code:

in jedes Modul.


Ansonsten 1 Minute Arbeit *wink.gif* Code:

 

Joo, das scheint dann zu funktionieren, aber wie mache ich das bei Excel.Range?

Code:

OK, sollte so dann wohl auch funktionieren.

BTW: Alle Forms, Module sind bei mir so gesetzt:
Code:

DANKE an alle, die sich hier eingesetzt haben. Manchmal sieht man den Wald vor lauter Bäumen nicht.