Открытие файла в зависимости от имени листа

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открытие файла в зависимости от имени листа (Макросы/Sub)

Гордей

Дата: Воскресенье, 15.04.2018, 18:35 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Приветствую! Подскажите пожалуйста код, который открывал бы нужный файл в зависимости от имени листа. Пример:

Если имя активного листа "Лист1" - то открывать файл "Файл1"
Если имя активного листа "Лист2" - то открывать файл "Файл2"
Если имя активного листа "Лист3" - то открывать файл "Файл3"
и тд.

Чтобы можно было составить список соответствий листов и файлов, а макрос сам выбирал бы нужный в зависимости от активного листа. На данный момент на листах в спец. ячейках прописаны пути и имена файлов, что очень не удобно (приходится вручную их менять)

Сообщение отредактировал Гордей - Воскресенье, 15.04.2018, 18:38

Ответить

Karataev

Дата: Воскресенье, 15.04.2018, 19:01 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

Можно прописать соответствие в макросе (макрос показан ниже), а можно сделать специально лист: в одном столбце имена листов, во втором - имена файлов, и макрос будет обращаться к этому листу. Лист можно скрыть.

Ответить

Гордей

Дата: Воскресенье, 15.04.2018, 19:10 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Цитата Karataev, 15.04.2018 в 19:01, в сообщении № 2 ()

Можно прописать соответствие в макросе

спсибо Вам большое! Это то, что нужно.

Ответить

StoTisteg

Дата: Понедельник, 16.04.2018, 11:54 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Гордей, а Вы уверены, что менять имена в макросе будет удобнее, чем на листе?

По мне так проще сделать сопоставление вычисляемым, например, так:
[vba]

Код

Workbooks.Open Filename:="C:\Users\User\Desktop\Книга" & Replace(ActiveSheet.Name, "Лист", "", 1, -1, vbTextCompare) & ".xlsx"

[/vba]

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

Гордей

Дата: Воскресенье, 29.04.2018, 19:23 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

А как сделать так, чтобы открывался файл с таким именем, как имя у текущего листа?

Например имя листа "Лист721", и чтобы открывался файл Лист721.xls.

P.S. Сам "допёр", основываясь на примере макроса выше

[vba]

Код

Dim strPath As String
strPath = "ПУТЬ"
Workbooks.Open Filename:=strPath & "\" & ActiveSheet.Name & ".xlsb"

[/vba]

Сообщение отредактировал Гордей - Воскресенье, 29.04.2018, 21:05

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открытие файла в зависимости от имени листа (Макросы/Sub)

Страница 1 из 1
1