Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Открытие файла в зависимости от имени листа - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открытие файла в зависимости от имени листа (Макросы/Sub)
Открытие файла в зависимости от имени листа
Гордей Дата: Воскресенье, 15.04.2018, 18:35 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

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

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

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


Сообщение отредактировал Гордей - Воскресенье, 15.04.2018, 18:38
 
Ответить
СообщениеПриветствую! Подскажите пожалуйста код, который открывал бы нужный файл в зависимости от имени листа. Пример:

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

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

Автор - Гордей
Дата добавления - 15.04.2018 в 18:35
Karataev Дата: Воскресенье, 15.04.2018, 19:01 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1208
Репутация: 456 ±
Замечаний: 0% ±

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


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

Автор - Karataev
Дата добавления - 15.04.2018 в 19:01
Гордей Дата: Воскресенье, 15.04.2018, 19:10 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

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


спсибо Вам большое! Это то, что нужно.
 
Ответить
Сообщение
Можно прописать соответствие в макросе


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

Автор - Гордей
Дата добавления - 15.04.2018 в 19:10
StoTisteg Дата: Понедельник, 16.04.2018, 11:54 | Сообщение № 4
Группа: Авторы
Ранг: Ветеран
Сообщений: 570
Репутация: 47 ±
Замечаний: 0% ±

Excel 2010
Гордей, а Вы уверены, что менять имена в макросе будет удобнее, чем на листе? :) По мне так проще сделать сопоставление вычисляемым, например, так:
[vba]
Код

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


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеГордей, а Вы уверены, что менять имена в макросе будет удобнее, чем на листе? :) По мне так проще сделать сопоставление вычисляемым, например, так:
[vba]
Код

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

Автор - StoTisteg
Дата добавления - 16.04.2018 в 11:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открытие файла в зависимости от имени листа (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!