CreateUnoService Function

Instantiates a Uno service with the ProcessServiceManager.

Sintaxis:

CreateUnoService(serviceName As String) As Object

For a list of available services, visit the com::sun::star Module reference page.

Ejemplo:

The example below creates the function FileExists that uses the service com.sun.star.ucb.SimpleFileAccess to test if a given path is an existing file.

Function FileExists(sPath as String) As Boolean
    Dim svcSFA As Object
    Set svcSFA = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
    Dim bExists As Boolean : bExists = svcSFA.exists(sPath)
    Dim bIsFolder As Boolean : bIsFolder = svcSFA.IsFolder(sPath)
    FileExists = bExists And Not bIsFolder
End Function ' FileExists

UNO services have an extensive online documentation in the api.libreoffice.org website. Visit the SimpleFileAccess Service reference page to learn more about the methods provided by the service used in the example above.

Ejemplo:

El código siguiente utiliza el servicio com.sun.star.ui.dialogs.FilePicker para mostrar un cuadro de diálogo de apertura de archivos:

Sub Main
    fName = FileOpenDialog ("Seleccione un archivo")
    Print "archivo elegido: "+fName
End Sub

Function FileOpenDialog(title As String) As String
    res = com.sun.star.ui.dialogs.ExecutableDialogResults
    filepicker = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
    filepicker.Title = title
    If res.OK = filepicker.execute() Then
        files = filepicker.getSelectedFiles()
        FileOpenDialog=files(0)
    EndIf
End Function ' Main

Función CreateUnoServiceWithArguments

Objetos, funciones y servicios de UNO

Using Calc Functions in Macros