概要
Microsoft Windows DLL (ダイナミック リンク ライブラリ) 現在のユーザー名を取得するのには、Windows API (アプリケーション ・ プログラミング ・ インタ フェース) の呼び出しを行うことができます。ADVAPI32 の GetUserNameA 関数を使用して、現在のユーザー名を取得できます。DLL.
詳細情報
Microsoft Excel には、コンピューターの現在のユーザー名にアクセスするための組み込み機能はありません。ただし、マクロ、Visual Basic for Applications の Declare ステートメントを使用するには現在のユーザー名を返す Windows 関数を呼び出す。マイクロソフトを含めて、市場性および特定目的に対する適合性の黙示の保証に限定されない保証明示または黙示にかかわらず、するだけで Visual Basic for Applications のプロシージャの例を提供します。'と 'は、この資料の Visual Basic のプロシージャが提供され、マイクロソフトでは、すべての状況で使用することは保証しません。Microsoft サポート担当者は、特定のマクロの機能を説明することができます、お客様固有のニーズを満たすためにマクロを作成するお手伝いも追加された機能を提供するこれらの例は変更されません。プログラミングの経験を制限されている場合は、場合は、Microsoft ソリューション プロバイダーのいずれかを参照してください。ソリューション ・ プロバイダーは、さまざまなカスタム マクロの作成など、手数料ベースのサービスを提供します。Microsoft ソリューション プロバイダーの詳細については、マイクロソフトのカスタマー情報サービス (800) 426-9400 にお問い合わせください。
使用例
-
新しいモジュールに次のコードを入力します。
' 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
-
Get_User_Name マクロを実行します。現在のユーザー名をメッセージ ボックスに表示されることに注意してください。
