CreateUnoService Function

Inicializuje Uno službu s ProcessServiceManager.


oService = CreateUnoService( Názov služby Uno )

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( "" )

Nasledujúci príklad používa službu k otvoreniu dialógu na výber súboru:

Sub Main
    fName = FileOpenDialog ("Prosím vyberte súbor")
    print "vybraný súbor: " fName
End Sub
Function FileOpenDialog(title As String) As String
    filepicker = createUnoService("")
    filepicker.Title = title
    files = filepicker.getFiles()
End Function

Please support us!