CreateUnoService Function

Создаёт экземпляр службы Uno с помощью ProcessServiceManager.


oService = CreateUnoService( имя службы 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( "" )

В следующем примере кода служба используется для открытия диалогового окна открытия файла:

Sub Main
    fName = FileOpenDialog ("Выберите файл")
    print "выбран файл: "+fName
End Sub
Function FileOpenDialog(title As String) As String
    filepicker = createUnoService("")
    filepicker.Title = title
    files = filepicker.getFiles()
End Function

Please support us!