сохранить в папку залогиненного пользователя домена (vba)

ivan777

Гость

28.03.2012 09:45:04

Добрый день!

Имеем данный код:
------
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\pk101\Рабочий стол\новые.csv" _
, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
------

подскажите можно ли в VBA сделать, чтобы при выполнении данного кода сохраняло на рабочий стол того пользователя под кем выполнялся код.
В GhostScript было через <REDMON_USER> , в VBA я так понял нет этого :(

anvg

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

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

Excel 2016, 365

28.03.2012 10:16:48

'имя пользователя
Public Function GetUserName() As String
GetUserName = Environ$("UserName")
End Function
'путь к папке рабочего стола пользователя
Public Function GetDesktopPath() As String
Const folderDesktop = 0

Dim pShell As Object
Set pShell = CreateObject("Shell.Application")
GetDesktopPath = pShell.Namespace(folderDesktop).Self.Path
End Function

ivan777 Гость	#3 28.03.2012 11:28:34 что-то не могу все это соеденить в одно. хелп

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#4 28.03.2012 19:27:09 Замените строку ActiveWorkbook.SaveAs filename:= _ "C:\Documents and Settings\pk101\Рабочий стол\новые.csv" _ , FileFormat:=xlCSV, CreateBackup:=False, Local:=True на две строки ПутьКРабочемуСтолу = CreateObject("WScript.Shell").SpecialFolders("Desktop") ActiveWorkbook.SaveAs ПутьКРабочемуСтолу & "\новые.csv", xlCSV Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему