VBA



() '



()

'

'

'

Dim n As Integer

'

'

Dim , As String

Dim As Object

Dim As String

= ActiveWorkbook.Name

'

' '

For i = 1 Len()

If Mid(, i, 1) = "." Then

= Mid(, 1, i - 1)

Exit For

End If

Next i

= Trim()

' .