Макрос_ из названия книги Excel вытащить составляющие и вставить в указанную ячейку

[Alexsandrr]

Добрый день коллеги!
Окажите содействие в создании макроса.
Необходимо из названия книги Excel вытащить составляющие и вставить в указанную ячейку.
Пример: название книги "21_8_Заявка ФПК_ПРИВ_04кв" нужно в A2 вытащить слово "ПРИВ", а в B2 вытащить "4" без нуля.

[VictorM]

ИМХО, если названия книг стандартизованы и имеют одинаковую структуру, то можно все это сделать по положению символов в строке, если же нет - не вижу, как все это "вытащить".

[Alexsandrr]

В названиях книг меняются эти составляющие: "21_8_", "ПРИВ", "04", остальные остаются неизменны. Книг очень много
вот макрос позволяющий вытащить название без расширения ".xlsx" может его можно доработать?
Range("A2").Select
nm$ = ActiveWorkbook.Name
ActiveCell.FormulaR1C1 = IIf(InStr(nm, "."), Mid(nm, 1, InStr(nm, ".") - 1), nm)

[kuklp]

Public Sub www()
    Dim a: ReDim b(1 To 2)
    a = Split(ActiveWorkbook.Name, "_")
    b(1) = a(UBound(a) - 1)
    b(2) = Val(a(UBound(a)))
    [a2:b2] = b
End Sub

[Alexsandrr]

Огромное спасибо за макрос,все работает!!!