Как избежать расположения файла в моем коде?

Question

У меня есть что-то вроде

Workbooks.Open("\\xxxx\xxx\xxx\xxx\xxx\xxx\xxx\xxx\xxx\xxx\xxx\file_name.xlsm")

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

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

Answer 1

Вы можете установить переменную окружения, myFilePath, со значением \\xxxx\...\file_name.xlsm. Затем в вашем коде получите доступ к этому значению с помощью Environ("myFilePath").

Answer 2

Я думаю, что пользователи могут легко увидеть местоположение файла после его открытия через диалоговое окно «Сохранить как» или «Файл»> «Дополнительные свойства».Чтобы избежать этого, вы можете открыть файл как шаблон с помощью Add вместо «Открыть»:

Set wb = Workbooks.Add("\\xxxx\xxx\xxx\xxx\xxx\xxx\xxx\xxx\xxx\xxx\xxx\file_name.xlsm")

---

Чтобы добавить скрытое значение в книгу, его можнодобавлено как скрытое имя (выполнить код только один раз):

 Names.Add("path", "test").Visible = False

После добавления Names("Path") приведет к ="test" вместо test, поэтому для получения значения вы можете попробоватьчто-то вроде (при условии, что на пути нет "):

 path = Split(Names("Path"), """")(1)

 Set wb = Workbooks.Add(path)