Tóm tắt
Bạn có thể gọi Windows API (giao diện lập trình ứng dụng) cho Microsoft Windows DLL (thư viện liên kết động) để có được tên người dùng hiện tại. Tên người dùng có thể thu được bằng cách sử dụng chức năng GetUserNameA ADVAPI32. DLL.
Thông tin Bổ sung
Microsoft Excel không có sẵn chức năng truy nhập tên người dùng máy tính. Tuy nhiên, bạn có thể sử dụng lệnh Declare trong Visual Basic cho ứng dụng macro để gọi hàm Microsoft Windows sẽ trở lại tên người dùng hiện tại. Microsoft cung cấp ví dụ Visual Basic cho ứng dụng quy trình để minh hoạ, không bảo hành hoặc rõ ràng hay ngụ ý, bao gồm nhưng không giới hạn bảo đảm bán và/hoặc cho một mục đích cụ thể. Quy trình Visual Basic trong bài viết này được cung cấp 'là' và Microsoft không đảm bảo rằng họ có thể được sử dụng trong mọi tình huống. Trong khi chuyên gia hỗ trợ của Microsoft có thể giúp giải thích các chức năng macro cụ thể, họ sẽ không sửa đổi các ví dụ cung cấp tính năng bổ sung và chúng sẽ giúp bạn xây dựng macro để đáp ứng nhu cầu cụ thể của bạn. Nếu bạn có giới hạn kinh nghiệm lập trình, bạn có thể tham khảo một số nhà cung cấp giải pháp của Microsoft. Nhà cung cấp giải pháp cung cấp một loạt các dịch vụ tính phí, bao gồm tạo macro tuỳ chỉnh. Để biết thêm thông tin về Trình cung cấp Giải pháp của Microsoft, hãy gọi Dịch vụ Thông tin Khách hàng Microsoft theo số (800) 426-9400.
VÍ DỤ
-
Nhập mã sau vào mô-đun mới:
' Makes sure all variables are dimensioned in each subroutine. Option Explicit ' Access the GetUserNameA function in advapi32.dll and ' call the function GetUserName. Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long ' Main routine to Dimension variables, retrieve user name ' and display answer. Sub Get_User_Name() ' Dimension variables Dim lpBuff As String * 25 Dim ret As Long, UserName As String ' Get the user name minus any trailing spaces found in the name. ret = GetUserName(lpBuff, 25) UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1) ' Display the User Name MsgBox UserName End Sub
-
Chạy macro Get_User_Name. Lưu ý rằng tên người dùng hiện tại sẽ xuất hiện trong hộp thư.