Speicherort Wählen

[Schakal]

Hallo Forum Nutzer,
Ich stehe mal wieder auf dem Schlauch und bin mir sicher das mir hier jemand helfen kann.
Zum Thema,
Ich habe eine Access Datenbank - aufgeteilt in Frontend und Backend.
Aus der Datenbank wird eine Datei generiert. Soweit alles OK und funktioniert auch.

Nun der BLACKOUT! :-)

Das Frontend befindet ich auf mehreren Rechnern und alle können Arbeiten und die Datei generieren.
Die Datei soll automatisch gespeichert werden und zwar immer auf dem Desktop des entsprechenden Arbeitsplatzes.
Ich habe  zwar einen Code aber ich muss ihn an jedem Arbeitsplatz anpassen denn der Code sieht so aus.


oExcel.ActiveWorkbook.SaveAs FileName:= _
      "C:\Users\Anwender1\Desktop\ABCD_" & strLfdnr & ".xls", FileFormat:=52
    oExcel.ActiveWorkbook.Save

Sicher gibt es eine Trick wie ich das Ändern an jedem Arbeitsplatz verhindern kann indem das Frontend - egal wo ich es Installiere immer auf den Desktop des jeweiligen Anwender speichert.

Bloss komme ich nicht drauf....
:-)
Bitte Hilfe

[MzKlMu]

Hallo,
Du brauchst ja ein Kriterium zur Erkennung des Anwenders.
Daher die Frage: Ist Anwender mit dem Windowsbenutzernamen gleich?

Wenn nicht, benötigst Du eine Übersetzungstabelle Windowsuser > Anwender.

Welche Access Version benutzt Du?

[Schakal]

Hallo
Ja Anwender1 = Windowsbenutzer - habe ich hier nur geändert damit der Name nicht erscheint.

[Schakal]

Hallo

Access 2007/2010

[bahasu]

Hi

Username ist mit Environ("username") zu erhalten.

Harald

[DF6GL]

Hallo,

"Username" kann in die Hosen gehen, wenn das User-Profil einen anderen Pfadnamen enthält...


Dim strFname as String

strFname = environ("Userprofile") & "\Desktop\ABCD_" & strLfdnr & ".xls"

[MzKlMu]

Hallo,
ich ziehe meinen Beitrag mit dem Ausdruck des Bedauerns zurück. 

[Schakal]

Hallo,
Vielen dank hat geklappt
Danke Schönes Wochenende!! :-)