Me gustaría entender que pasa con el siguiente código:
Código: Seleccionar todo
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
He revisado la documentación por si encontraba lo que falla pero no sé verlo. ¿Alguna idea?
Gracias,