Приветствую! Подскажите пожалуйста код, который открывал бы нужный файл в зависимости от имени листа. Пример:
Если имя активного листа "Лист1" - то открывать файл "Файл1" Если имя активного листа "Лист2" - то открывать файл "Файл2" Если имя активного листа "Лист3" - то открывать файл "Файл3" и тд.
Чтобы можно было составить список соответствий листов и файлов, а макрос сам выбирал бы нужный в зависимости от активного листа. На данный момент на листах в спец. ячейках прописаны пути и имена файлов, что очень не удобно (приходится вручную их менять)
Приветствую! Подскажите пожалуйста код, который открывал бы нужный файл в зависимости от имени листа. Пример:
Если имя активного листа "Лист1" - то открывать файл "Файл1" Если имя активного листа "Лист2" - то открывать файл "Файл2" Если имя активного листа "Лист3" - то открывать файл "Файл3" и тд.
Чтобы можно было составить список соответствий листов и файлов, а макрос сам выбирал бы нужный в зависимости от активного листа. На данный момент на листах в спец. ячейках прописаны пути и имена файлов, что очень не удобно (приходится вручную их менять)Гордей
Сообщение отредактировал Гордей - Воскресенье, 15.04.2018, 18:38
Можно прописать соответствие в макросе (макрос показан ниже), а можно сделать специально лист: в одном столбце имена листов, во втором - имена файлов, и макрос будет обращаться к этому листу. Лист можно скрыть.
[vba]
Код
Sub Открыть_файл()
Dim strPath As String, strFilename As String
strPath = "C:\Users\User\Desktop"
Select Case ActiveSheet.name Case "Лист1" strFilename = "Книга1.xlsb" Case "Лист2" strFilename = "Книга2.xlsb" Case "Лист3" strFilename = "Книга3.xlsb" End Select
Можно прописать соответствие в макросе (макрос показан ниже), а можно сделать специально лист: в одном столбце имена листов, во втором - имена файлов, и макрос будет обращаться к этому листу. Лист можно скрыть.
[vba]
Код
Sub Открыть_файл()
Dim strPath As String, strFilename As String
strPath = "C:\Users\User\Desktop"
Select Case ActiveSheet.name Case "Лист1" strFilename = "Книга1.xlsb" Case "Лист2" strFilename = "Книга2.xlsb" Case "Лист3" strFilename = "Книга3.xlsb" End Select