Всем Мяу!
В книге есть имя "свд" для диапазона сводной таблицы.
В оригинале файла это имя вдруг отказалось работать.
Сводная не обновляется. Попытки ввести в качестве источника это имя приводят к ошибке.
Но в то же время в копии, созданной кодом
сводная исправно работает???
В книге есть имя "свд" для диапазона сводной таблицы.
В оригинале файла это имя вдруг отказалось работать.
Сводная не обновляется. Попытки ввести в качестве источника это имя приводят к ошибке.
Но в то же время в копии, созданной кодом
Код |
---|
Sub New_Book() Dim New_Wb As Workbook, sh As Worksheet Dim nm As Name Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If New_Wb Is Nothing Then sh.Copy Set New_Wb = ActiveWorkbook Else sh.Copy After:=New_Wb.Sheets(Sheets.Count) End If If sh.Name = "прибыль-доходы" Then New_Wb.Sheets("прибыль-доходы").DrawingObjects.Delete End If Next New_Wb.Sheets("прибыль-доходы").Activate For Each sh In New_Wb.Worksheets If sh.Name <> "сводный анализ" Then sh.UsedRange.Value = sh.UsedRange.Value End If Next On Error Resume Next For Each nm In New_Wb.Names If nm.Name <> "свд" Then nm.Delete End If Next On Error GoTo 0 iPath = ThisWorkbook.Path If Not Right$(iPath, 1) = "\" Then iPath = iPath & "\" Filename = (iPath & Split(ThisWorkbook.Name, ".")(0) & "_" & Format(Date, "DD_MM_YY") & ".xlsm") New_Wb.ChangeLink Name:=ThisWorkbook.Name, NewName:=New_Wb.Name, Type:=xlExcelLinks New_Wb.Sheets("сводный анализ").PivotTables.Item(1).ChangePivotCache New_Wb. _ PivotCaches.Create(SourceType:=xlDatabase, SourceData:="свд", Version:= _ xlPivotTableVersion12) New_Wb.SaveAs Filename:=Filename, FileFormat:=52 ThisWorkbook.Close False Application.ScreenUpdating = True End Sub |
сводная исправно работает???