Seite 1 von 1

[Gelöst] In Calc über ein Ereigniss den PC User abfragen

Verfasst: Mo 17. Feb 2025, 16:54
von IanWhistler
Hallo Zusammen,

für die folgende vba Programmierung benötige ich ein Calc Basic Pendant:

Code: Alles auswählen

    Set Netzwerk = CreateObject("wscript.network")
    
    Select Case Netzwerk.UserName
        Case "User1"
            pc_user = True
        Case "User2"
            pc_user = False
    End Select
Kann mir da jemand weiterhelfen?

Danke und Gruß,
Sebastian

Re: In Calc über ein Ereigniss den PC User abfragen

Verfasst: Mo 17. Feb 2025, 21:39
von karolus
Vielleicht!?

Code: Alles auswählen

p_sub = createUnoService("com.sun.star.util.PathSubstitution")

user = psub.substituteVariables("$(username)",1)

Re: In Calc über ein Ereigniss den PC User abfragen

Verfasst: Di 18. Feb 2025, 08:23
von mikele
Hallo,
oder

Code: Alles auswählen

p_sub = createUnoService("com.sun.star.util.PathSubstitution")
user = p_sub.getSubstituteVariableValue("$(username)")
auch wieder was gelernt 8-)

Re: In Calc über ein Ereigniss den PC User abfragen

Verfasst: Di 18. Feb 2025, 14:23
von karolus
Hallo
@Mikele: Du zitierst falsch, da fehlt in der zweiten Codezeile , 1

Edit: Ok mein Fehler … ich merke gerade, du benutzt ja auch …getSubstituteVariableValue anstelle von …subsituteVariables

Re: In Calc über ein Ereigniss den PC User abfragen

Verfasst: Di 18. Feb 2025, 14:38
von mikele
Hallo,
@karolus: Es war weniger ein Zitat sondern mehr die Nutzung einer anderen Funktion (wenn ich die API richtig gelesen habe, mit der ich mich nach wie vor schwer tue).

Re: In Calc über ein Ereigniss den PC User abfragen

Verfasst: Fr 21. Feb 2025, 11:32
von IanWhistler
Hallo ihr Beiden,

und erstmal vielen Dank für die Hilfe! Funktioniert wunderbar.

Sorry das ich jetzt erst schreibe, bin leider früher nicht dazu gekommen das zu testen.

@mikele, kannst du mir sagen wo du das gelesen hast?

Ein schönes Wochenende und Gruß,
Sebastian

Re: In Calc über ein Ereigniss den PC User abfragen

Verfasst: Fr 21. Feb 2025, 12:45
von karolus
IanWhistler hat geschrieben:
Fr 21. Feb 2025, 11:32
@mikele, kannst du mir sagen wo du das gelesen hast?
Sebastian
Ich wurde zwar nicht gefragt, aber https://api.libreoffice.org/