OpenOffice.info

Verfasst: **Sa, 10.02.2007 22:11**

Hallo,
ich bin in einem Artikel auf folgende Zeilen gestoßen. Aus einem Bereich wird mit der OO-Calc Funktion MIN() der kleinste Wert ermittelt.

svc = createUnoService( "com.sun.star.sheet.FunctionAccess" )
oSheet = ThisComponent.Sheets(0) ' Get leftmost sheet

REM CellRange mit Zahlen

oCellRange = oSheet.getCellRangeByPosition( 0, 0, 0, 9 )
arg = array( oCellRange )
print svc.callFunction( "MIN", arg )

Nun möchte ich andere OO-Calc Funktionen wie TRIM(), LEN() und REPLACE() auf der gleichen Art nutzen, bekomme aber nur einen Fehler.

svc = createUnoService( "com.sun.star.sheet.FunctionAccess" )
oSheet = ThisComponent.Sheets(0) ' Get leftmost sheet

REM CellRange mit Texte

oCellRange = oSheet.getCellRangeByPosition( 0, 0, 0, 9 )
arg = array( oCellRange )
svc.callFunction( "TRIM", arg )

Welche Parameter muss ich wo setzen damit ich diese Funktionen richtig aufrufen kann oder wo liegt Fehler?

MfG

SUGON

Verfasst: **So, 11.02.2007 09:56**

Der zweite Parameter muss dem Wert entsprechen, der von der Funktion bearbeitet werden kann:

bei TRIM, LEN also eine Zeichenkette, nicht einen Bereich von Zellen.

This WFM:

Code: Alles auswählen

Function calc_Func_LEN
FuncAcc = createunoservice("com.sun.star.sheet.FunctionAccess")
oSheet = ThisComponent.Sheets(0) ' Get leftmost sheet
oCell = oSheet.getCellByPosition( 5, 1 )  'Zelle F2
aResult=FuncAcc.callFunction("LEN", array( oCell.String ))
calc_Func_LEN = aResult
End Function

Bei REPLACE entsprechend mehr Parameter mitgeben:

Code: Alles auswählen

aResult=FuncAcc.callFunction("REPLACE", array( oCell.String , 1,3,"ZZZ" ))

Hilft Dir das weiter?

Verfasst: **So, 11.02.2007 20:38**

Hallo Winfried,

vielen dank für deine Beispiele. Habs verstanden und es Hilft mir sehr weiter!

MfG

SUGON

OpenOffice.info

TRIM(), LEN() und REPLACE() mit FunctionAccess

TRIM(), LEN() und REPLACE() mit FunctionAccess

TRIM(), LEN() und REPLACE() mit FunctionAccess