OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

Libor8

Člen

Registrace: 22. 12. 2009

Příspěvků: 2

Problem s programovavi v basicu

Dobrý den,
potřeboval bych pomoci s kouskem programu. Nejsem v programovani v open office vasicu moc zběhlý tak to asi pro většinu bude triviální věc.
Tento kousek programu by měl zjištovat kolik je v dokumentu popsaných řádků.Tento kod jsem předělával z visual basicu.

pom = 6
document = ThisComponent
Sheet = document.Sheets("List1")
Cell = Sheet.getCellByPosition(2, pom)
While Cell <> ""
Cell = Sheet.getCellByPosition(2, pom + 1)
Wend

pom = pom - 1

Porovnávám zde z listu1 hodnoty z buněk ve kterých jsou nadafinované hodnoty které poté chci porovnat a zjistit zda není prázdný řádek("").

Předem děkuji za pomoc

S pozdravem Libor

j-pastierik

Člen

Registrace: 15. 11. 2004

Příspěvků: 761

Re: Problem s programovavi v basicu

V cykle Vám chýba zvyšovanie premennej "pom", iba tým, že napíšete +1 do adresy bunky sa automaticky premenná nezvýši v každom kroku cyklu. Ďalej premenná "Cell" nemôže ukázať výsledok "", pretože je to objekt - obsah získate cez "getString()":
while Cell.getString()<>""
pom=pom+1
Cell = Sheet.getCellByPosition(2, pom)
Wend

Libor8

Člen

Registrace: 22. 12. 2009

Příspěvků: 2

Re: Problem s programovavi v basicu

Děkuji mnohokrát za radu funguje na jedničku.

S pozdravem Libor