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

Вход

Регистрация

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

 

= Мир MS Excel/Последние пять знаков в названии файла без расширения - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Последние пять знаков в названии файла без расширения (Макросы/Sub)
Последние пять знаков в названии файла без расширения
timo64uk Дата: Четверг, 12.12.2024, 10:26 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 1 ±
Замечаний: 0% ±

Office16
Добрый день :)
Файл называется "Объёмы ООО Газ-Мяс Р3 АГРО ОЗХ _ 2024.12.10.xlsb"
Нужно взять последние пять символов без расширения (12.10) и отобразить в MsgBox
Почему-то это работает на моем файле, но завязано на точках, а мне бы к количеству символов привязаться
Прошу вашей помощи
[vba]
Код
    Name = ActiveWorkbook.Name
    Name = Left(Name, Len(Name) - InStrRev(Name, "\") - 5) ' убираем расширение
    Name2 = Right(Name, Len(Name) - InStrRev(Name, ".") + 3) ' привязка к 3ей с конца точке
    MsgBox Name2
[/vba]
К сообщению приложен файл: objomy_ooo_gaz_mjas_r3_agro_oz.xlsb (7.3 Kb)


Сообщение отредактировал timo64uk - Четверг, 12.12.2024, 10:27
 
Ответить
СообщениеДобрый день :)
Файл называется "Объёмы ООО Газ-Мяс Р3 АГРО ОЗХ _ 2024.12.10.xlsb"
Нужно взять последние пять символов без расширения (12.10) и отобразить в MsgBox
Почему-то это работает на моем файле, но завязано на точках, а мне бы к количеству символов привязаться
Прошу вашей помощи
[vba]
Код
    Name = ActiveWorkbook.Name
    Name = Left(Name, Len(Name) - InStrRev(Name, "\") - 5) ' убираем расширение
    Name2 = Right(Name, Len(Name) - InStrRev(Name, ".") + 3) ' привязка к 3ей с конца точке
    MsgBox Name2
[/vba]
Автор - timo64uk
Дата добавления - 12.12.2024 в 10:26
Nic70y Дата: Четверг, 12.12.2024, 10:46 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9028
Репутация: 2374 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
    With ActiveWorkbook
        MsgBox Right(Left(.Name, InStrRev(.Name, ".") - 1), 5)
    End With
[/vba]

ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
    With ActiveWorkbook
        MsgBox Right(Left(.Name, InStrRev(.Name, ".") - 1), 5)
    End With
[/vba]
Автор - Nic70y
Дата добавления - 12.12.2024 в 10:46
timo64uk Дата: Четверг, 12.12.2024, 10:47 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 1 ±
Замечаний: 0% ±

Office16
Цитата Nic70y, 12.12.2024 в 10:46, в сообщении № 2 ()
Right(Left

ООО, вообще круть. Спасибо.
 
Ответить
Сообщение
Цитата Nic70y, 12.12.2024 в 10:46, в сообщении № 2 ()
Right(Left

ООО, вообще круть. Спасибо.
Автор - timo64uk
Дата добавления - 12.12.2024 в 10:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Последние пять знаков в названии файла без расширения (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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