Wie kann ich von VBA (Access) aus eine Function aufrufen?

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Agnostiker
Beiträge: 7
Registriert: Mo, 27.09.2004 12:32
Wohnort: Berlin
Kontaktdaten:

Wie kann ich von VBA (Access) aus eine Function aufrufen?

Beitrag von Agnostiker »

:oops: ...trotz mehrstündiger Recherche habe ich das immer noch nicht rausbekommen *heul*

Meine Funktion steht im Modul "Standard.Module1"

Ich sag schon mal Merci vielmals!
Agnostiker
Beiträge: 7
Registriert: Mo, 27.09.2004 12:32
Wohnort: Berlin
Kontaktdaten:

Beitrag von Agnostiker »

Einen Schritt bin ich in meinem Problem immerhin weiter gekommen, ob er allerdings in die richtige Richtung geht, - keine Ahnung...

Jedenfalls lässt sich so eine Function (oder Sub) von VBA aus in OO ausführen:

Code: Alles auswählen

Set oManager = CreateObject("com.sun.star.ServiceManager")
Set oDesktop = oManager.CreateInstance("com.sun.star.frame.Desktop")
Set oDispatcher = oManager.CreateInstance("com.sun.star.frame.DispatchHelper")
sMacroURL = "macro:///Standard.Module1.MeinMacro"
vResult= oDispatcher.executeDispatch(oDesktop, sMacroURL, "", 0, mNoArgs())
...mir dem einzigen Schönheitsfehler, dass 'vResult' freilich nichts zurückliefert.
Gibt es da eine Möglichkeit an den Rückgabewert einer Function zu kommen?
Antworten