OpenOffice.info

Vielleicht hilft dir Michael Dannenhöfers [url=http://www.dannenhoefer.de/faqstarbasic/index.html]StarBasic / OpenOffice.org Basic FAQ[/url] weiter? Bei dieser Frage speziell diese Seite [url=http://www.dannenhoefer.de/faqstarbasic/Zellen.html#Zweig160]7.1.1 Wie bekomme ich Zugriff zu einer Zelle?[/url].

BTW: Weitere Fragen zu Basic solltest du unter der Rubrik [url=http://de.openoffice.info/viewforum.php?f=18]OOo Basic und Java[/url] stellen.

Gruß
lorbass

sub test_schreiben
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$3"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())


end sub

Hallo zusammen,
ich brauche den Befehl, mit dem ich mittels einem Makro etwas in eine Zelle in der Tabelle schreiben kann. Ich hab es schon mittels der "MakroAufzeichnung" versucht, jedoch ohne vernünftiges Ergebnis. Dies kam dabei heraus:
[code]sub test_schreiben
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$3"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())


end sub[/code]

So weit so gut, nur fehlt der Befehl, der sagt, er soll bspw. test in die Zelle A3 schreiben. Gestern ging es noch, hatte leider vergessen abzspeichern. Doch heute liefert mit OO Calc dieses Ergebnis. Kann mir einer bitte weiterhelfen?

Vielen Dank.

VG
Mauritius