✂️ Обрезание расширения файла

Подходит для файлов, в наименовании которых есть только одна точка, которая стоит перед расширением:

Sub RemoveFileExtension()
    If InStr(ThisWorkbook.Name, ".") > 1 Then
        MsgBox "Имя файла с расширением: " & ThisWorkbook.Name & vbNewLine & _
        "Имя файла без расширения: " & Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)
    End If
End Sub

#VBA #ExcelVBA #Расширение #Extension