Ich versuche, Excel-Dateien zu speichern und Dialogfelder zu öffnen, um sie standardmäßig auf "meinem Computer" zu öffnen, damit der Benutzer von dort aus ein Laufwerk auswählen kann.

Ich habe die Dialogfelder, die sich zu einem beliebigen Pfad auf einem beliebigen Laufwerk oder meinen Dokumenten usw. öffnen lassen, finde aber anscheinend keine Möglichkeit, sie auf meinem Computer zu öffnen.

Dies ist der Code, den ich gerade verwende und der für einen bekannten Pfad gut funktioniert:

MsgBox objFolders("desktop")
ChDrive objFolders("desktop")
ChDir objFolders("desktop")

strFileName = appRemoteApp.Workbooks("Export Template.xlsm").Application.GetSaveAsFilename(objFolders("desktop") & "\Replica Export " & UserName & " " & Format(Date, "yymmdd") & ".xlsm", FileFilter:="Excel Macro Enabled Workbook (*.xlsm), *.xlsm,")     

Auch das habe ich von gefundenDiese Seite.

Wenn Sie einfügen::{20D04FE0-3AEA-1069-A2D8-08002B30309D} In der Adressleiste von Windows Explorer gelangen Sie zu meinem Computer, aber wenn ich diesen in meinem VBA-Code verwende

ChDir "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"

es sagt, dass es das Verzeichnis oder etwas nicht finden kann. Also nicht sicher, ob es eine Lösung dafür gibt oder so.

Das hat auch nicht geklappt:

ChDir "C:\WINDOWS\explorer.exe /root,,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" 

Der Grund, warum ich möchte, dass die Dialogfelder für den Computer geöffnet sind, ist, dass wir das Excel-Dokument auf einem Windows-Server mit Zugriff über RemoteApp und Remotedesktop hosten. Die Benutzer haben keinen Zugriff (Rechte) auf die Server-Laufwerke und -Ordner usw., sie haben nur Zugriff auf ihre eigenen Laufwerke auf ihren lokalen Rechnern, die zugeordnet werden und mangels eines besseren unter dem Server-Ordner "Arbeitsplatz" sichtbar sind Wort. Das Masterdokument auf dem Server generiert ein Replikat mit VBA-Code und wird dann auf der lokalen Festplatte des Benutzers gespeichert.