MS Office and VBA
This category holds articles regarding general things in MS Office VBA independent from the MS Office application.
The below method will replace all special or escape characters in a provided String.
This is of use, if you have to use before unknown Strings from any source for example in a file name.
- Hits: 8719
The following looked simple enough for me.
Here a solution, which works for me however you have to be careful since it relies on a certain environment variable to be present. If this environment variable is not available the method automatically assumes the os to operate in 32 bit.
Unfortunately thie below did not work for me as it returned "x86" no matter if I started it on a 64 bit or 32 bit os.
- Hits: 7719
The below snippet will provide you with a systems full user name.
' @Author - Alexander Bolte
' @ChangeDate - 2014-10-13
' @Description - Returning the system user name.
Public Function getFullUserName() As String
Dim WSHnet As Object
Dim UserFullName As String
Dim userName As String
Dim UserDomain As String
Dim objUser As Object
Set WSHnet = CreateObject("WScript.Network")
userName = WSHnet.userName
UserDomain = WSHnet.UserDomain
Set objUser = GetObject("WinNT://" & UserDomain & "/" & userName & ",user")
UserFullName = objUser.FullName
Set WSHnet = Nothing
Set objUser = Nothing
getFullUserName = UserFullName
Since the source is using late binding it is not necessary to set a reference in the VBA Editor for a specific version of the referenced API named "WScript".
- Hits: 8286
Page 3 of 4