Đăng nhập với Microsoft
Đăng nhập hoặc tạo tài khoản.
Xin chào,
Chọn một tài khoản khác.
Bạn có nhiều tài khoản
Chọn tài khoản bạn muốn đăng nhập.

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Ụ

  1. 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
  2. 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ư.

Bạn cần thêm trợ giúp?

Phát triển các kỹ năng của bạn
Khám phá nội dung đào tạo
Sở hữu tính năng mới đầu tiên
Tham gia Microsoft dùng nội bộ

Thông tin này có hữu ích không?

Bạn hài lòng đến đâu với chất lượng dịch thuật?
Điều gì ảnh hưởng đến trải nghiệm của bạn?

Cảm ơn phản hồi của bạn!

×