Makro erstellen, Zeitwert einlesen und bearbeiten

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

Moderator: Moderatoren

Lehmann Brothers
Beiträge: 6
Registriert: Di, 16.09.2008 09:51

Makro erstellen, Zeitwert einlesen und bearbeiten

Beitrag von Lehmann Brothers »

Hallo erstmal
Ich arbeite mit OO Calc
habe mir Einstieg OO Basic angesehen
und kann damit mein Problem nicht lösen.

Allso folgendes :

Ich habe 5 Aktien, deren Wert beim öffnen des Dokumentes automatisch aktuell von Internet eingelesen werden.

Nun brauche ich einen Button der bei drücken
mir meine aktuellen Kurse ausliest und jeden Tag in ein Arbeitsblatt überträgt, sodass ich irgendwann einmal
für jede Aktie, jeden Tag seinen wert drinnenstehn habe.

Habe mich schon selbst herumgespielt, mein Problem war immer das
bei jedem drücken des buttons zwar die werte der einzellen aktien eingelesn wurde, aber es wurden auch immer die alten überschrieben.

Hoffe ihr könnt mir weiterhelfen,
wäre sehr danbar


LG
Sepp
Benutzeravatar
komma4
********
Beiträge: 5332
Registriert: Mi, 03.05.2006 23:29
Wohnort: Chon Buri Thailand Asia
Kontaktdaten:

Re: Makro erstellen, Zeitwert einlesen und bearbeiten

Beitrag von komma4 »

Lehmann Brothers hat geschrieben:die werte der einzellen aktien eingelesn wurde, aber es wurden auch immer die alten überschrieben.

Hoffe ihr könnt mir weiterhelfen,
Wie setzt Du die neu geholten Werte?


Offentsichtlich stimmt bei Dir die Adressierung des Zielbereichs nicht.
Kennst Du die Anweisungen zum Ermitteln eines benutzten Bereichs?

Code: Alles auswählen

REM Danad Posted: Sat Feb 19, 2005 3:19 am
REM http://www.oooforum.org/forum/viewtopic.phtml?t=17142

Function usedArea()
   oDoc = thisComponent
   oPlan = oDoc.getSheets().getByIndex(0)
   oCursor = oPlan.createCursor()
   oCursor.gotoStartOfUsedArea(False)
   oCursor.gotoEndOfUsedArea(True)
   aAdd = oCursor.getRangeAddress()

 '  print aAdd.StartRow; aAdd.StartColumn; aAdd.EndRow; aAdd.EndColumn
usedArea = aAdd.StartRow & " " & aAdd.StartColumn & " " &  aAdd.EndRow & " " &  aAdd.EndColumn
end Function 
Kommst Du damit weiter?
Cheers
Winfried
aktuell: LO 5.3.5.2 30m0(Build:2) SUSE rpm, unter Linux openSuSE Leap 42.3 x86_64/KDE5
DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als OOo Extension)
Antworten