benutzer per formel auslesen ??

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: benutzer per formel auslesen ??

Re: benutzer per formel auslesen ??

von komma4 » Fr, 13.06.2008 18:17

Andreas,

das folgende Beispiel holt sich die Daten aus der OOo Anmeldeinformationen.

Du bekommst nicht den Windows-Anmeldenamen, aber den Vor-/Nachnamen, wie er in Extras>Optionen...>OpenOffice.org>Benutzerdaten eingetragen ist.

Code: Alles auswählen

Sub Main
' http://www.oooforum.org/forum/viewtopic.phtml?t=1446
' paro  Jun 17, 2003 11:24 am
Dim oConfigProvider as Object
Dim oRegistryKeyContent as Object

Dim aNodePath(0) as new com.sun.star.beans.PropertyValue

oConfigProvider = createUnoService("com.sun.star.configuration.ConfigurationProvider")

aNodePath(0).Name = "nodepath"
aNodePath(0).Value = "org.openoffice.UserProfile/Data"


oRegistryKeyContent = _
oConfigProvider.createInstanceWithArguments( _
"com.sun.star.configuration.ConfigurationAccess", aNodePath())


Msgbox oRegistryKeyContent.o

Msgbox oRegistryKeyContent.givenname
Msgbox oRegistryKeyContent.sn

Msgbox oRegistryKeyContent.initials
Msgbox oRegistryKeyContent.title
Msgbox oRegistryKeyContent.position

Msgbox oRegistryKeyContent.telephonenumber
Msgbox oRegistryKeyContent.facsimiletelephonenumber
Msgbox oRegistryKeyContent.homephone

Msgbox oRegistryKeyContent.mail
Msgbox oRegistryKeyContent.st
Msgbox oRegistryKeyContent.street
Msgbox oRegistryKeyContent.postalcode

Msgbox oRegistryKeyContent.UserGroup
Msgbox oRegistryKeyContent.c
Msgbox oRegistryKeyContent.l

End Sub
Hilft das?

Re: benutzer per formel auslesen ??

von chrk » Di, 01.04.2008 20:24

Eine Calc-Funktion gibt es dafür nicht.
Du könntest aber eine Benutzerdefinierte Funktion (siehe Calc-Hilfe) schreiben.
Diese liest den beim System angemeldeten Benutzer aus den Umgebungsvariablen aus:

Code: Alles auswählen

Function BENUTZER() as string
BENUTZER=Environ ("USERNAME")
End Function
Mehr Code (z.B. Calc-Benutzerdaten) kann ich auch nicht ;)

Anwendung: in eine Zelle =BENUTZER() eingeben.

benutzer per formel auslesen ??

von keksi1970 » Di, 01.04.2008 19:46

und wieder was neues, hi leute

geht sowas ueberhaupt ?? oder doch wieder nur per Makro ???

Klartext : zelle a1 = aktuell angemeldeter Benutzer

Gruß ANdreas

Nach oben