需要一个宏来询问某人的用户名，以便它可以打开工作簿

Question

我想自动打开一个封闭的工作簿并提取一些数据，但是我想要一个适用于多个人的代码。可能会要求他们提供用户名，以便可以成功打开？

Workbooks.Open "C:\Users\username\Documents\New Data.xlsx"

我使用了与代码类似的东西，并且在运行宏时可以使用它，因为它是针对我的特定用户名量身定制的，但是在其他人尝试运行宏时却没有。

Answer 1

使用Environ("USERNAME")获取用户名，或者使用更好的Environ("USERPROFILE")获取配置文件路径。

因此您可以像这样使用它：

Dim MyWb As Workbook
Set MyWb = Workbooks.Open(Environ("USERPROFILE") & "\Documents\New Data.xlsx")

使用Environ("USERPROFILE")的优点是它与Windows版本无关。