Capitalise

R

Richard

Hi

I have a great function in VBA which returns the network login name. I use
this simply to add the user name to emails. Unfortunately the name is
returned in lower case, which doesn't look as good as it could. Is there a
way to ensure the name returned is correctly capitalised.


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

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX <> 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function
 
R

Richard

Mike

That gives me RICHARD rather than Richard, I should have given an example
sorry.
 
M

Mike H

Richard,

Try this

fOSUserName = WorksheetFunction.Proper(Left$(strUserName, lngLen - 1))

Mike
 
R

Richard

Mike

Thats it thanks. I find it infuriating that what should be so obvious takes
me so long and then I have to ask dumb questions.

Thanks again
Richard
 
M

Mike H

Glad I could help

Richard said:
Mike

Thats it thanks. I find it infuriating that what should be so obvious takes
me so long and then I have to ask dumb questions.

Thanks again
Richard
 
J

Jacob Skaria

One more...In vbscript use the String Conversion function .For example

=STRCONV("RICHARD",vbProperCase)

If this post helps click Yes
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top