如何让VBA中Workbooks.Open自动适配当前用户名打开文件？

方法1：通过环境变量获取当前用户名 #

VBA里可以用Environ("USERNAME")直接读取当前登录的Windows用户名，替换掉硬编码的部分，代码如下：

Dim userName As String
Dim targetPath As String

' 获取当前用户的用户名
userName = Environ("USERNAME")
' 拼接完整文件路径
targetPath = "C:\Users\" & userName & "\Box\Operations\Information\Projects\sample.csv"

Workbooks.Open targetPath

方法2：通过用户主目录获取（兼容性更强） #

如果团队里有使用旧Windows系统，或者用户主目录不在C:\Users下的情况，用UserProfile特殊文件夹获取路径更可靠：

Dim userRootFolder As String
Dim targetPath As String

' 获取当前用户的主目录（比如C:\Users\JohnDoe或自定义路径）
userRootFolder = CreateObject("WScript.Shell").SpecialFolders("UserProfile")
' 拼接完整文件路径
targetPath = userRootFolder & "\Box\Operations\Information\Projects\sample.csv"

Workbooks.Open targetPath

注意事项 #

• 确保所有团队成员的Box文件夹结构完全一致，也就是\Box\Operations\Information\Projects\sample.csv这个相对路径在每个人的用户主目录下都存在，否则依然会出现文件找不到的情况。

内容的提问来源于stack exchange，提问作者Adam___