web-dev-qa-db-de.com

Wie kann ich Excel Workbook unabhängig vom Benutzer auf dem Desktop speichern?

Ich habe eine Excel-Arbeitsmappe, die auf "Formularschaltfläche" geklickt wird. Ich muss eine Kopie der Arbeitsmappe auf dem Desktop des Benutzers speichern.

Ursprünglich sollte sich alles in einem freigegebenen Netzwerkordner befinden, aber jetzt habe ich ungefähr 6 verschiedene Benutzer, die beim Klicken auf die Schaltfläche die Arbeitsmappe auf ihren einzelnen Desktops speichern müssen.

Ist es eine Möglichkeit (codierungsmäßig), auf dem Desktop des Computers zu speichern, ohne dass einzelne Benutzer angegeben werden müssen (dazu müssten 6 verschiedene Workbook-Dateien verwaltet werden)?

15

Ich denke, dies ist der zuverlässigste Weg, um den Desktoppfad zu erhalten, der nicht immer mit dem Benutzernamen identisch ist.

MsgBox CreateObject("WScript.Shell").specialfolders("Desktop")
30
SWa

Sie haben erwähnt, dass sie jeweils über einen eigenen Computer verfügen. Wenn sie sich jedoch bei einem Kollegen-Computer anmelden und dann die Datei verwenden müssen, wird das Speichern unter "C:\Users\Public\Desktop \" sie verfügbar machen verschiedene Benutzernamen.

Public Sub SaveToDesktop()
    ThisWorkbook.SaveAs Filename:="C:\Users\Public\Desktop\" & ThisWorkbook.Name & "_copy", _ 
    FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

Ich bin mir nicht sicher, ob dies eine Anforderung wäre, kann aber helfen!

0
Conquistador