请教：

vvvtian

EXCEL中如何用VBA取得系统信息？如用户名等。谢谢！

ui

使用API来做

hzg7818

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

    Dim s As String, cnt As Long, dl As Long

    cnt& = 199

    s = String(200, 0)

    dl = GetUserName(s, cnt)

    UserName = Left(s, cnt)

End FunctionSub test()

    MsgBox UserName

End Sub返回当前用户名

vvvtian

谢谢版主！