Próbuję uzyskać Excela Zapisz i otwórz okna dialogowe, aby domyślnie otworzyć „mój komputer”, aby użytkownik mógł wybrać stamtąd dysk.

Mam okna dialogowe, które można otworzyć na dowolną ścieżkę na dowolnym dysku lub w moich dokumentach itp., Ale nie mogę znaleźć sposobu na otwarcie go na moim komputerze.

Jest to kod, którego używam w tej chwili i działa dobrze dla znanej ścieżki:

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,")     

Również znalazłem to zta strona.

Jeśli wkleisz::{20D04FE0-3AEA-1069-A2D8-08002B30309D} w pasku adresu Eksploratora Windows przeniesie Cię do mojego komputera, ale jeśli użyję tego w moim kodzie VBA

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

mówi, że nie może znaleźć katalogu lub czegoś. Więc nie jestem pewien, czy jest jakieś obejście tego czy czegoś.

To też nie zadziałało:

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

Powodem, dla którego chcę, aby okna dialogowe były otwarte na komputer, jest to, że będziemy hostować dokument excela na serwerze Windows z dostępem poprzez RemoteApp i zdalny pulpit. Użytkownicy nie będą mieli dostępu (praw) do dysków i folderów serwerów itp., Będą mieli dostęp tylko do własnych dysków na swoich komputerach lokalnych, które będą mapowane i będą widoczne pod folderem „Mój komputer” z powodu braku lepszego słowo. Dokument główny na serwerze generuje replikę przy użyciu kodu VBA, a następnie jest zapisywany na lokalnym dysku twardym użytkownika.