Макрос: часть имени файла прибавить к значению ячейки

[Обыватель]

Добрый день! Помогите, пожалуйста с кодом:

Имя файла: Регион 101
На листе "Лист 1" в ячейке "А1" находится текст "Регион"

Каким образом можно взять из названия файла окончание "101" и прибавить к значению ячейки "А1", чтобы получилось "Регион 101" ?

Заранее спасибо!

[tae1980]

Сообщение от Обыватель

Добрый день! Помогите, пожалуйста с кодом:

Имя файла: Регион 101
На листе "Лист 1" в ячейке "А1" находится текст "Регион"

Каким образом можно взять из названия файла окончание "101" и прибавить к значению ячейки "А1", чтобы получилось "Регион 101" ?

ActiveWorkbook.name Даст вам имя активной книги... А дальше дело техники.

[Обыватель]

Сообщение от tae1980

ActiveWorkbook.name Даст вам имя активной книги... А дальше дело техники.

Вот с техникой-то и проблема...

[IgorGO]

может так:

=ПСТР(ЯЧЕЙКА("имяфайла");ПОИСК("[";ЯЧЕЙКА("имяфайла"))+1;ПОИСК(".";ЯЧЕЙКА("имяфайла"))-ПОИСК("[";ЯЧЕЙКА("имяфайла"))-1)

это просто взять имя файла

[Обыватель]

Сообщение от IgorGO

может так:

=ПСТР(ЯЧЕЙКА("имяфайла");ПОИСК("[";ЯЧЕЙКА("имяфайла"))+1;ПОИСК(".";ЯЧЕЙКА("имяфайла"))-ПОИСК("[";ЯЧЕЙКА("имяфайла"))-1)

это просто взять имя файла

Вы прямо мои мысли прочитали =)
Я сделал проще: имена моих файлов одинаковой длины, поэтому я реализовал в 2-х ячейках

"А1"=ячейка("имя_файла")
"А2"=пстр("А1";101;3)
и сцепил результат со значением в ячейке

Спасибо за помощь!