Нужен макрос, который попросит кого-то ввести его имя пользователя, чтобы он мог открыть книгу

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.