von Agnostiker » Di, 28.09.2004 14:00
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?
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]
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())
[/code]
...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?