CreateUnoService Function

Crea un casu de serviciu Unu col ProcessServiceManager.


oService = CreateUnoService( nome de serviciu Unu)

For a list of available services, go to:


Calling Calc functions in Basic:

    REM The code below does not work for add-in functions, which have a different calling procedure.
    Function MyVlook(item, InRange As Object, FromCol As Integer)
        Dim oService As Object
        oService = createUnoService("")
        REM Always use the function English name
        MyVlook = oService.callFunction("VLOOKUP",Array(item, InRange, FromCol, True))
    End Function


oIntrospection = CreateUnoService( "" )

El códigu siguiente utiliza un serviciu p'abrir un diálogu d'apertura de ficheros:

Sub Main
    fName = FileOpenDialog ("Escueya un ficheru")
    Print "ficheru esbilláu: "+fName
End Sub
Function FileOpenDialog(title As String) As String
    res =
    filepicker = createUnoService("")
    filepicker.Title = title
    If res.OK = filepicker.execute() Then 
        files = filepicker.getSelectedFiles()
End Function

Please support us!