Como tornar uma macro universalmente utilizável em várias estações de trabalho com diferentes nomes de usuários

Question

Eu tenho uma macro que criei para uma tarefa específica relacionada ao trabalho. Eu compartilho essa macro com algumas pessoas enviando-lhes o arquivo .xlam como um suplemento. Não há problemas aí.

Meu problema é que parte do código que eu uso tem meu nome de usuário pessoal embutido nele, então quando eu compartilho o xlam, eu tenho que salvar um arquivo xlam separado para cada pessoa com quem compartilhar a macro e editar o nome de usuário cada um para combinar com a pessoa para quem estou enviando. Por exemplo:

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

Eu tenho que mudar "myusername" para que funcione para meus colegas quando eles estiverem executando a macro em sua estação de trabalho.

existe outra sintaxe que eu possa usar que basicamente diz ... usuário atual ... e funcionará universalmente para todos que a abrem em sua estação de trabalho?

obrigado!

    

Answer 1

Tente isto:

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