在使用VBA编写Excel 2010宏时，我们经常会使用Environ函数来获取操作系统的环境变量。其中，Environ("用户名")函数用于获取当前登录用户的用户名。然而，在某些情况下，我们可能会发现Environ("用户名")在保存文件路径中不起作用，导致我们无法得到预期的结果。
在解决这个问题之前，让我们先来了解一下Environ函数的作用。Environ函数可以用于获取操作系统的环境变量，如用户名、计算机名称、操作系统版本等。例如，Environ("用户名")可以获取当前登录用户的用户名。然而，尽管Environ("用户名")在大多数情况下都可以正常工作，但在保存文件路径中使用时却可能出现问题。具体来说，当我们尝试将Environ("用户名")添加到保存文件路径中时，Excel可能无法正确解析该函数，导致保存文件失败或保存到错误的路径。为了解决这个问题，我们可以使用VBA中的其他方法来获取当前登录用户的用户名，而不是依赖Environ函数。下面是一个示例代码，演示了如何通过Windows API来获取当前登录用户的用户名，并将其添加到保存文件路径中：Option ExplicitPrivate Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias _"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongSub SaveFileWithUserName() Dim userName As String Dim filePath As String '获取当前登录用户的用户名 userName = GetWindowsUserName() '设置保存文件路径 filePath = "C:\Users\" & userName & "\Desktop\example.xlsx" '保存文件 ThisWorkbook.SaveAs filePath MsgBox "文件已保存至：" & filePathEnd SubFunction GetWindowsUserName() As String Dim userName As String Dim buffer As String * 255 Dim length As Long '获取当前登录用户的用户名 length = 255 GetUserName buffer, length '去除字符串末尾的空格 userName = Left$(buffer, InStr(buffer, Chr(0)) - 1) GetWindowsUserName = userNameEnd Function在上面的示例代码中，我们使用了GetUserName函数来获取当前登录用户的用户名。GetUserName函数是Windows API的一部分，用于获取当前登录用户的用户名。我们通过声明GetUserName函数，并通过调用GetWindowsUserName函数来使用它。GetWindowsUserName函数首先声明了所需的变量，包括userName（用于存储用户名）、buffer（用于存储API函数返回的结果）和length（用于存储buffer的长度）。然后，我们调用GetUserName函数，并将结果存储在buffer中。最后，我们通过去除buffer末尾的空格，得到了最终的用户名。在SaveFileWithUserName子过程中，我们首先调用GetWindowsUserName函数来获取当前登录用户的用户名，并将其存储在userName变量中。然后，我们将userName添加到保存文件路径中，并使用ThisWorkbook.SaveAs方法保存文件。最后，我们显示一个消息框，提示文件保存路径。通过使用上述方法，我们可以在保存文件路径中成功地获取当前登录用户的用户名，而不依赖于Environ函数。这样，我们就可以避免Environ("用户名")在保存文件路径中不起作用的问题。案例代码：
vbaOption ExplicitPrivate Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias _"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongSub SaveFileWithUserName() Dim userName As String Dim filePath As String '获取当前登录用户的用户名 userName = GetWindowsUserName() '设置保存文件路径 filePath = "C:\Users\" & userName & "\Desktop\example.xlsx" '保存文件 ThisWorkbook.SaveAs filePath MsgBox "文件已保存至：" & filePathEnd SubFunction GetWindowsUserName() As String Dim userName As String Dim buffer As String * 255 Dim length As Long '获取当前登录用户的用户名 length = 255 GetUserName buffer, length '去除字符串末尾的空格 userName = Left$(buffer, InStr(buffer, Chr(0)) - 1) GetWindowsUserName = userNameEnd Function通过上述代码，我们可以成功地获取当前登录用户的用户名，并将其添加到保存文件路径中。这样，我们就可以在VBA编写的Excel 2010宏中，通过自定义的方法来解决Environ("用户名")在保存文件路径中不起作用的问题。