目录
示例
Environ函数
获取所有的系统环境变量
示例
在许多时候,开发者希望能够获取当前Windows登录用户的信息,并以此信息决定用户的使用权限等。如何使用VBA获取Windows登录用户名?
Option ExplicitSub 获取Windows登录用户名()Debug.Print Environ("UserName")End Sub
Environ函数
Environ函数可以返回当前的系统变量,其语法为
Environ({envstring | number} )
Environ函数可以接受的参数为系统变量名(文本)或者系统变量序号(数字)。
当参数为系统变量名( envstring)时,该函数将直接返回变量的值。如本例中,以系统变量名UserName(用户名)作为参数时,即返回该变量的值,也就是当前Windows的登录用户名。当参数为系统变量的序号(number)时,该函数将会返回如“变量名=变量值”的表达式。
获取所有的系统环境变量
每台计算机系统环境变量的数量和变量名称会由于系统的不同和用户设置的不同而不同。开发者可以参考以下代码获取当前系统的所有环境变量。
Sub 获取所有的系统变量()Dim lIndex As LongDim sEnv As StringlIndex = 1DosEnv = Environ(lIndex)If sEnv = "" Then Exit DoCells(lIndex + 1, "A").Value = lIndexCells(lIndex + 1, "B").Value = Left(sEnv, InStr(sEnv, "=") - 1)Cells(lIndex + 1, "C").Value = Mid(sEnv, InStr(sEnv, "=") + 1)lIndex = lIndex + 1LoopEnd Sub