Сохранение файла по умолчанию на рабочий стол

Пользователь

Сообщений: 2 Регистрация: 14.02.2017

14.02.2017 10:37:20

Приветствую всех!

Есть задача - необходимо прописать код в макросе чтобы сохранение файла велось по умолчанию на рабочий стол пользователя вне зависимости от имени его учетной записи Windows (т.е. на любом другом компьютере).

На данный момент код уже готов и он работает, но в названии пути упоминается именно мой пользователь.
Что необходимо вставить, чтобы макрос сам подставлял в путь имя пользователя, на чьем компьютере он запускается?

Код
ChDir "C:\Users\Fixxxer91\Desktop" ActiveWorkbook.SaveAs Filename:="C:\Users\Fixxxer91\Desktop\Файл.xlsx" _ , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Hugo

Пользователь

Сообщений: 25784 Регистрация: 22.12.2012

14.02.2017 10:49:48

Выполните

Код
msgbox CreateObject("wscript.network").UserName

fixxxer91

Пользователь

Сообщений: 2 Регистрация: 14.02.2017

15.02.2017 11:20:39

При вставке кода лишь вылетает MsgBox в котором указано имя пользователя а после макрос завершает работу ошибкой.

Код

MsgBox CreateObject("wscript.network").UserName
    ChDir "C:\Users\Fixxxer91\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\UserName\Desktop\Файл.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Ivan.kh

Гость

21.03.2017 09:43:38

Код
ПутьКРабочемуСтолу = CreateObject("WScript.Shell").SpecialFolders("Desktop") ActiveWorkbook.SaveAs ПутьКРабочемуСтолу & "\ИмяФайла.xls"

Изменено: Ivan.kh - 21.03.2017 09:43:59