Используйте общий путь по умолчанию

У меня есть небольшая программа, которая создает загрузку файлов и сохраняет в папку, указанную пользователем. В настоящее время вершина userform выглядит как следующее при инициализации:

Я бы предпочел, чтобы, когда пользовательская форма открывалась, а также когда появлялось диалоговое окно для выбора (с помощью кнопки "Назначение"), общее значение по умолчанию уже отображается:

Может ли программа найти путь к рабочему столу пользователя?

Источник

2 ответа

Решение

Чтобы получить путь к рабочему столу пользователя, используйте:

PathToDesktop = Environ("USERPROFILE") & "\Desktop"
Источник

Если вы делаете это в excel-vba, следующий код сохранит текущую книгу в виде копии на рабочий стол пользователя... вы, вероятно, сможете выяснить, что вы делаете оттуда.

Dim DesktopPath As String 
DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator 
ActiveWorkbook.SaveAs DesktopPath & "filename.xls"
Источник
Другие вопросы по тегам