如何獲取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))