как программно написать наименование пользователя?

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

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

03.07.2012 16:32:09

есть макрос сохранения активной книги на рабочий стол

ActiveWorkbook.SaveAs Filename:= "C:\Documents and Settings\Admin\Рабочий стол\Книга1.xls", FileFormat:= xlNormal

он не будет работать в другом компе если там наименование пользователья не Admin

как надо писать чтобы работало во всех компах?

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#2 03.07.2012 16:40:09 desktopPath$ = CreateObject("WScript.Shell").SpecialFolders("Desktop") ActiveWorkbook.SaveAs desktopPath & "\Книга1.xls", xlNormal Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Р‘РђРҐРўР? Пользователь Сообщений: 462 Регистрация: 24.12.2012	#3 03.07.2012 17:48:24 Игорь, спасибо большое

Читают тему