Funció CreateUnoService

Contingut

# CreateUnoService Funció

Instantiates a Uno service with the ProcessServiceManager.

### Sintaxi:

         CreateUnoService(serviceName As String) As Object

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

### Exemple:

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.

### Exemple:

El codi següent utilitza el servei com.sun.star.ui.dialogs.FilePicker per a mostrar un diàleg d'obertura de fitxers:

    Sub Main
        fName = FileOpenDialog ("Seleccioneu un fitxer")
        Print "fitxer triat: "+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

Temes relacionats

Funció CreateUnoServiceWithArguments

Objectes, funcions i serveis de l'UNO

Using Calc Functions in Macros