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

Question

我只需要获取当前用户的名称，以便我可以访问他们的文件夹内的应用程序数据文件夹.... 我必须在VBA中这样做，所以是...请帮助。

Answer 1

我相信这是像

Environ("Username")

Answer 2

不需要用户名就知道哪个文件夹是应用程序数据文件夹。

您需要使用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))