Столкнулся с необходимостью инвертировать стиль ссылок при работе с PivotTables при изменении источника данных сводной таблицы, иначе ругается.
Но зачем и почему? Или лыжи невиноваты ?
Но зачем и почему? Или лыжи невиноваты ?
Код |
---|
''''''''''''' зачем-то инвертируем стиль ссылок при формировании сроки адреса диапазона данных сводной bRefStyle = iif(Application.ReferenceStyle= 1, -4150, 1) ''''''''''''''''''''''''''формируем сроку адреса диапазона данных сводной sPtData = ФайлПодтверждения.Path & "\" & "[" & ФайлПодтверждения.Name & "]" & ФайлПодтверждения.Worksheets(4).Name & "!" & ФайлПодтверждения.Worksheets(4).[a1].CurrentRegion.Address(, , bRefStyle) ''''''''''''''''''''''''прогружаем диапазон данных сводной ActiveSheet.PivotTables("СводнаяТаблица1").ChangePivotCache ActiveWorkbook. _ PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ sPtData _ , Version:=xlPivotTableVersion10) |