Web Development

General discussion

Gravatar
Locked

VB API Call & Excel 2000

By Sheryl V ·
How can I make this API call & function that DOES work in MSAccess 2000 on Win2000 work in Excel2000, same platform?

Declare Function DeclareGetLogin Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function GetUserName() As String
Dim lngLen As Long
Dim strBuf As String

strBuf = Space(255)
lngLen = 255
If CBool(DeclareGetLogin(strBuf, lngLen)) Then
GetUserName = Left$(strBuf, lngLen - 1)
Else
GetUserName = ""
End If

End Function

This conversation is currently closed to new comments.

3 total posts (Page 1 of 1)  
Thread display: Collapse - | Expand +

All Comments

gravatar
Collapse -

by Sheryl V In reply to

Poster rated this answer.
thrid one worked, it was a variation on what I had, but it actaully works so thank you!

gravatar
Collapse -

by Sheryl V In reply to VB API Call & Excel 2000

This question was closed by the author

Back to Web Development Forum
3 total posts (Page 1 of 1)  

Start or search

Related Discussions

Related Forums