РЮАКХЖЮ () '
рЮАКХЖЮ ()
'
' Процедура построения сводной таблицы
'
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(ИмяКниги)
' Удаляются ранее созданные рабочие листы с именем .Сводная