Ｅxcel VBA でログインしているアカウント（ユーザー）名取得？

WIn2000　と　WindowXP において、
Ｅxcel　VBA　で、現在、ログインしているアカウント（ユーザー）名を取得して、表示させたいのですが、どうすればいいのですか？
見よう見まねの独学なので初心者の域をでていませんので、宜しくお願いします。

No.4 ベストアンサー 回答者： Wendy02 回答日時： 2005/06/26 10:51

こんな風でよいのではありませんか？

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
　　(ByVal lpBuffer As String, nSize As Long) As Long
Sub UserName()
　　Dim myName As String
　　Dim num As Long
　　Dim Rtn As Long
　　myName = String(250, Chr(0))
　　num = Len(myName)
　　Rtn = GetUserName(myName, num)
　　MsgBox "ユーザー名は" & myName & " です。"
End Sub

この回答へのお礼

ありがとうございます。
参考になりました。

お礼日時：2005/06/26 15:45

No.3 回答者： hana-hana3 回答日時： 2005/06/26 10:47

Msgbox Application.UserLibraryPath

で表示されるので、
変数 = Application.UserLibraryPath

で、変数に格納されます。

この回答へのお礼

ありがとうございます。
参考になりました

お礼日時：2005/06/26 15:43

No.2 回答者： kumadayo 回答日時： 2005/06/26 09:54

http://www.asahi-net.or.jp/~ef2o-inue/api/sub08_ …
などいかがですか＾＾？

参考URL：http://www.asahi-net.or.jp/~ef2o-inue/api/sub08_ …

この回答へのお礼

ありがとうございます。
参考になります。

お礼日時：2005/06/26 10:09

No.1 回答者： hana-hana3 回答日時： 2005/06/26 09:34

Application.UserName

では取得できませんが、
Application.UserLibraryPathを取得して、
ユーザー名＝ユーザーフォルダ名になるのを利用して、
C:\Documents and Settings\[アカウント名]\Application Data\Microsoft\AddIns\
から切り出す方法もあります。

この回答へのお礼

ありがとうございます。私初心者なので、
「Application.UserLibraryPathを取得して」の取得の方法が分からないので、これも教えていただけると嬉しいです。
参考になります。

お礼日時：2005/06/26 10:08