Funktion CreateUnoService

Instanziiert einen Uno-Dienst mit dem ProcessServiceManager.

Syntax:

oService = CreateUnoService( UNO service name )

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

Beispiel:

Das folgende Beispiel erstellt die Funktion FileExists, die den Dienst com.sun.star.ucb.SimpleFileAccess verwendet, um zu testen, ob ein bestimmter Pfad eine vorhandene Datei ist.


    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

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.

Beispiel:

Der folgende Code verwendet den Dienst com.sun.star.ui.dialogs.FilePicker, um einen Dialog zum Öffnen einer Datei anzuzeigen:


Sub Main
    fName = FileOpenDialog ("Bitte wählen Sie eine Datei")
    Print "Ausgewählte Datei: "+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

Using Calc Functions in Macros