У меня есть макрос, который я построил для конкретной задачи, связанной с работой. Я делюсь этим макросом с несколькими людьми, отправляя им файл .xlam в качестве надстройки. Там нет проблем.

Моя проблема в том, что в некоторый код, который я использую, встроено мое личное имя пользователя, поэтому, когда я делюсь xlam, мне нужно сохранить отдельный файл xlam для каждого человека, с которым я делюсь макросом, и отредактировать имя пользователя в каждом из них, чтобы соответствует человеку, которому я посылаю это. Например:

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

Я должен изменить "myusername", чтобы он работал для моих коллег, когда они запускают макрос на своей рабочей станции.

Есть ли другой синтаксис, который я могу использовать, который в основном говорит ... текущий пользователь ... и будет работать универсально для всех, кто открывает его на своей рабочей станции?

Спасибо!

1 ответ1

1

Попробуй это:

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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .