Me gustaría entender que pasa con el siguiente código:
- Código: Seleccionar todo Expandir vistaContraer vista
sub testFuncionCalc
Dim mDatos
mDatos = Array( "05/12/2015", 2)
msgbox FuncionCalc( "WEEKDAY", mDatos ) 'Debe devolver 6 (sábado)
end sub
Function FuncionCalc( Nombre As String, Datos() )
' Esta función permite llamar a una función de Calc por su nombre en Inglés
Dim oSFA As Object
oSFA = createUnoService( "com.sun.star.sheet.FunctionAccess" )
FuncionCalc = oSFA.callFunction( Nombre, Datos() )
End Function
En LibreOffice funciona a la perfección pero en OpenOffice me muestra un hermoso "Se ha producido una excepción. Type: com.sun.star.lang.IllegalArgumentException".
He revisado la documentación por si encontraba lo que falla pero no sé verlo. ¿Alguna idea?
Gracias,