Самоучитель 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(ИмяКниги)

' Удаляются ранее созданные рабочие листы с именем .Сводная









Начало  Назад  Вперед