Thủ tục trực quan cơ bản để lấy tên người dùng hiện tại

Tóm tắt

Bạn có thể thực hiện một cuộc gọi đến Windows API (giao diện lập trình ứng dụng) cho Microsoft Windows DLL (thư viện liên kết động) để lấy tên người dùng hiện tại. Có thể lấy tên người dùng hiện tại bằng cách sử dụng hàm GetUserNameA trong ADVAPI32. DLL.

Thông tin Bổ sung

Microsoft Excel không có chức năng tích hợp sẵn để truy nhập tên người dùng hiện tại của máy tính. Tuy nhiên, bạn có thể sử dụng câu lệnh khai báo trong một macro Visual Basic for Applications để gọi tới một hàm Microsoft Windows sẽ trả về tên người dùng hiện tại. Microsoft cung cấp ví dụ về các quy trình trực quan cơ bản cho các ứng dụng chỉ cho minh họa, mà không có bảo hành nào được thể hiện hoặc ngụ ý, bao gồm nhưng không giới hạn ở các bảo đảm được ngụ ý của khả năng bán và/hoặc tập thể dục cho một mục đích cụ thể. Các quy trình trực quan cơ bản trong bài viết này được cung cấp ' và Microsoft không đảm bảo rằng chúng có thể được sử dụng trong mọi trường hợp. Trong khi chuyên gia hỗ trợ của Microsoft có thể giúp giải thích về các chức năng của một macro cụ thể, họ sẽ không sửa đổi các ví dụ này để cung cấp thêm chức năng, cũng như họ sẽ không giúp bạn xây dựng macro để đáp ứng các nhu cầu cụ thể của bạn. Nếu bạn có trải nghiệm lập trình hạn chế, bạn có thể muốn tham khảo một trong các nhà cung cấp giải pháp Microsoft. Các nhà cung cấp giải pháp cung cấp một phạm vi rộng các dịch vụ dựa trên phí, bao gồm tạo macro tùy chỉnh. Để biết thêm thông tin về các nhà cung cấp giải pháp Microsoft, hãy gọi Dịch vụ thông tin khách hàng của Microsoft tại (800) 426-9400.

MẪU

  1. Nhập mã sau đây vào một 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 Get_User_Name macro. 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?

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

Cảm ơn bạn đã phản hồi! Để trợ giúp tốt hơn, có lẽ chúng tôi sẽ kết nối bạn với một trong những nhân viên hỗ trợ Office của chúng tôi.

×