сохранение на рабочий стол, не зависимо от пользователя

Автор Jim, 03.06.2011, 12:12

« назад - далее »

Jim

всем привет!

помогите пожалуйста.
необходим макрос, который будет сохранять файл на рабочий стол, не зависимо от того какой пользователь запустил файл.
Проблема в том, что у каждого пользователя путь на рабочий стол разный, в зависимости от логина под которым зашел в windows.
C:\Documents and Settings\ИМЯ ПОЛЬЗОВАТЕЛЯ\Рабочий стол\namefile.xls
вот как прописать чтобы ИМЯ ПОЛЬЗОВАТЕЛЯ бралось то, какой был логин при входе в windows

заранее всем спасибо за помощь

Andrey Lenets

функция для определения логина пользователя...
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function GetUserNameW() As String
    Dim strUserName As String
    strUserName = String(100, Chr$(0))
    GetUserName strUserName, 100
    GetUserNameW = Left(strUserName, InStr(strUserName, Chr$(0)) - 1)
End Function