Добрый день,
Подскажите, можно ли решить такую задачу:
Работаю с файлом, в котором прописана VBA-процедура, на работе и дома.
Процедура эта в процессе работы обращается к еще одному файлу (открывает его, производит определенные действия), который на работе лежит на диске Y, дома на диске С. Имя файла одинаковое, пути к нему разные.
Сейчас обращение к этому файлу выглядит следующим образом:
1ый путь:
Дальше работа с открытым файлом.
И когда мне надо поменять путь к этому файлу, я его просто переписываю руками:
2 путь:
Вопрос: можно ли каким-то образом прописать оба пути, чтобы при обращении по первому пути (через диск С), если файл найден, продолжалась работа, а, если не найден, обращение происходило по второму пути и далее, опять же, продолжалась работа.
Думалось сделать через on error resume next так:
но очевидно, что, если ошибки при обращении по 1 пути нет, то как избежать обращения ко второму пути?
спасибо за советы.
Подскажите, можно ли решить такую задачу:
Работаю с файлом, в котором прописана VBA-процедура, на работе и дома.
Процедура эта в процессе работы обращается к еще одному файлу (открывает его, производит определенные действия), который на работе лежит на диске Y, дома на диске С. Имя файла одинаковое, пути к нему разные.
Сейчас обращение к этому файлу выглядит следующим образом:
1ый путь:
Код |
---|
Sub MyCode () ChDir _ "C:\Users\C\Desktop\FOLDER" Workbooks.Open Filename:= _ "C:\Users\Í\Desktop\FOLDER\FILENew.xls" дальше код работы с открытым файлом |
И когда мне надо поменять путь к этому файлу, я его просто переписываю руками:
2 путь:
Код |
---|
Sub MyCode () ChDir _ "Y:\Public\Folder1" Workbooks.Open Filename:= _ "Y:\Public\Folder1\FILENew.xls" дальше код работы с открытым файлом |
Вопрос: можно ли каким-то образом прописать оба пути, чтобы при обращении по первому пути (через диск С), если файл найден, продолжалась работа, а, если не найден, обращение происходило по второму пути и далее, опять же, продолжалась работа.
Думалось сделать через on error resume next так:
Код |
---|
Sub MyCode () On error resume next ChDir _ "Y:\Public\Folder1" Workbooks.Open Filename:= _ "Y:\Public\Folder1\FILENew.xls" ChDir _ "C:\Users\C\Desktop\FOLDER" Workbooks.Open Filename:= _ "C:\Users\Í\Desktop\FOLDER\FILENew.xls" on error goto 0 дальше код работы с открытым файлом |
спасибо за советы.