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小時內刪除侵權內容。