CreateUnoService Function

Khởi tạo một dịch vụ Uno với bộ quản lý dịch vụ tiến trình (ProcessServiceManager).


oService = CreateUnoService( Uno service name )

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

Mã theo đây sử dụng một dịch vụ để mở một hộp thoại kiểu mở tập tin:

Sub Main
    fName = FileOpenDialog ("Hãy chọn một tập tin")
    print "tập tin đã chọn: "+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!