☰

如何使宏在具有不同用户名的多个工作站上通用

tag-icon • tag-icon microsoft-excel vba macros
如何使宏在具有不同用户名的多个工作站上通用

我有一个为特定工作相关任务构建的宏。我通过将 .xlam 文件作为插件发送给几个人来共享此宏。这没有问题。

我的问题在于，我使用的某些代码中嵌入了我的个人用户名，因此当我共​​享 xlam 时，我必须为与我共享宏的每个人保存一个单独的 xlam 文件，并编辑每个文件中的用户名以匹配我要发送给的人。例如：

Workbooks.Open "C:\Users\myusername\Desktop\Agent List for DSR.xlsx"

我必须更改“myusername”，以便当我的同事在他们的工作站上运行宏时它可以起作用。

有没有另一种我可以使用的方法，基本上是说...当前用户...并且可以普遍适用于在其工作站上打开它的所有人？

谢谢！

答案1

尝试这个：

Dim xlsPath As String
xlsPath = Environ("UserProfile") & "\Desktop\Agent List for DSR.xlsx"
Workbooks.Open xlsPath

相关内容