Excel/VBA Environ（ "username"）エラー

Question

SQL Serverデータベースにロードされる一連のモデル入力を含むスプレッドシートがあります。このプロセスの一部には、誰がいつ何を更新したかを監査する証跡を作成することが含まれます。ユーザーとマシンの名前とタイムスタンプを記録します。私のVBAコード内

、私は次のようしている：

ユーザー= VBA.environ $（ "ユーザ名"）

これには、Office 2013

で、Win7のマシン上で実行されています私はコードを実行する、それはすべて正常に動作しますが、生産の誰かが（同じマシンで、しかし私がログインしている）それを実行すると、上の行になります。私は上記のバリエーション（user = environ（ "username"）、user = environ $（ "username"））を使用しましたが、常に同じ結果を得ました。

これを修正する方法について考えている人はいますか？

Answer 1

は、あなたは以下のとおりです。

Sub Test() 
    With CreateObject("WScript.Network") 
     Debug.Print .UserName 
     Debug.Print .ComputerName 
     Debug.Print .UserDomain 
    End With 
End Sub 

Answer 2

私はいつもそれはほとんど常により良いですので、Application.UserNameを使用 - Application.UserNameはあなたを与えるだろう、一方、environ$("username")はあなたに「ジョン・〜・スミス」のようなものを与えることができる「ジョン・スミス」を

Answer 3

を環境変数は

1. 信頼性が低いですユーザーは必要な値に値を編集できます
2. ユーザーは環境変数を削除できます。

これらのいずれかを試してください。APIメソッド。

オプション1

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ 
(ByVal lpBuffer As String, nSize As Long) As Long 

Sub Sample() 
    Dim lpBuff As String * 25 
    Dim ret As Long, UserName As String 

    ret = GetUserName(lpBuff, 25) 
    UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1) 

    MsgBox UserName 
End Sub 

オプションここでは2

Option Explicit 

Private Declare Function GetEnvironmentVariable Lib _ 
"kernel32" Alias "GetEnvironmentVariableA" _ 
(ByVal lpName As String, ByVal lpBuffer As String, _ 
ByVal nSize As Long) As Long 


Private Sub Sample() 
    Dim strUserName As String * 255 
    Dim x As Integer 

    x = GetEnvironmentVariable("USERNAME", strUserName, Len(strUserName)) 
    If x > 0 Then 
     x = InStr(strUserName, vbNullChar) 
     If x > 0 Then 
      MsgBox (Left$(strUserName, x - 1)) 
     Else 
      MsgBox (Left$(strUserName, x)) 
     End If 
    End If 
End Sub 

Answer 4

私は常に使用

Environ("USERPROFILE") 

しかし、私はその人のデスクトップをかなり参考にする必要があります。