Опознавание Usera в Word-VBA

Программирование на Visual Basic for Applications
Ella
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 13.06.2003 (Пт) 10:41

Опознавание Usera в Word-VBA

Сообщение Ella » 13.06.2003 (Пт) 10:56

Help me please!
У меня есть документ dokus.dot , который при старте считывает информацию из текстового файла, расположенного на локальном компьютере.
Но проблема в том, что есть несколько Useroв работающих на одном WinNT.
Каждый User регистрируется на WinNT под своим именем.
В VBA коде, я указываю путь, где лежит текстовой файл.

Код: Выделить всё
ChangeFileOpenDirectory "C:\WINNT\Profiles\Default User\Eigene Dateien\"
    Selection.InsertFile FileName:="daten.doc", Range:="", ConfirmConversions _
        :=False, Link:=False, Attachment:=False

Но каждый User имеет там же,вместо DefaultUser ещё папку со своим именем.
Как бы мне отобразить это в коде, чтобы документ при старте знал, что это Пупкин и обращался к его папке, а затем - это Васькин, и обращался бы к его папке?
Заранее thanks! :?: [/b][/code]

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 13.06.2003 (Пт) 11:40

Выражение Environ$("UserProfile") вернет путь к папке профиля пользователя. Т.е. примерно так:
Код: Выделить всё
ChangeFileOpenDirectory Environ$("UserProfile") & "\My Documents\", ...


Если же нужно узнать именно имя текущего пользователя, то есть API-функция Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long, которая определяет имя пользователя, вошедшего в систему.
Lasciate ogni speranza, voi ch'entrate.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 46

    TopList