如何在VBA中获取当前用户名？

Question

我只需要获取当前用户的名称,以便我可以访问其文件夹中的应用程序数据文件夹....我必须在VBA中执行此操作,所以是的...请帮助.

Answer 1

您不需要用户名来了解哪个文件夹是应用程序数据文件夹.

您需要将该SHGetFolderPath函数与CSIDL_APPDATA值一起使用.

Private Declare Function SHGetFolderPath Lib "shell32.dll" Alias "SHGetFolderPathA" (ByVal hwnd As Long, ByVal csidl As Long, ByVal hToken As Long, ByVal dwFlags As Long, ByVal pszPath As String) As Long
Private Const CSIDL_APPDATA As Long = &H1A
Private Const MAX_PATH As Long = 260

Dim s As String
s = String$(MAX_PATH, 0)

SHGetFolderPath 0, CSIDL_APPDATA, 0, 0, s

MsgBox Left$(s, InStr(1, s, vbNullChar))

Answer 2

我相信它就像是

Environ("Username")