如何在VBA中查找用戶配置文件的路徑

Question

如何獲取當前用戶的路徑與Windows 7中的%UserProfile%相同？

Answer 1

或者很簡單：

MsgBox Environ$("USERPROFILE") 

---

您可以使用VBA的Environ()方法，擴大環境變量，只是傳遞參數作爲字符串並放下%標記。

Answer 2

我用這個函數：

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long 
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long 

' Return the user's profile path. 
Private Function ProfilePath() As String 
Dim win_dir As String 
Dim user_name As String 
Dim ret_len As Long 

    ' Get the windows directory. 
    win_dir = Space$(256) 
    ret_len = GetWindowsDirectory(win_dir, Len(win_dir)) 
    win_dir = Left$(win_dir, ret_len) 

    ' Get the user's name. 
    user_name = Space$(256) 
    GetUserName user_name, ret_len 
    user_name = Left$(user_name, ret_len) 

    If (Asc(Right$(user_name, 1)) = 0) Then 
     user_name = Left$(user_name, Len(user_name) - 1) 
    End If 

    ProfilePath = win_dir & "\" & user_name 
End Function