excel利用VBA获取系统用户帐户名称

excel利用VBA获取系统用户帐户名称

如果要获取Windows默认的用户帐户名称，可以使用下面的VBA代码，其中使用了 WNetGetUser 函数，将代码放入标准模块中：

Option ExplicitPrivate Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _(ByVal lpName As String, _ByVal lpUserName As String, _lpnLength As Long) As Long

Private Const NO_ERROR = 0Private Const ERROR_NOT_CONNECTED = 2250&Private Const ERROR_MORE_DATA = 234Private Const ERROR_NO_NETWORK = 1222&Private Const ERROR_EXTENDED_ERROR = 1208&Private Const ERROR_NO_NET_OR_BAD_PATH = 1203&Sub Getusername()Dim strBuf As String, lngUser As Long, strUn As StringstrBuf = Space$(255) ‘//Clear bufferlngUser = WNetGetUser("", strBuf, 255)If lngUser = NO_ERROR ThenstrUn = Left(strBuf, InStr(strBuf, vbNullChar) – 1)MsgBox "系统用户帐户名称是： " & strUnElseMsgBox "错误：" & lngUserEnd IfEnd Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。