Свойство QueryTable.PreserveFormatting (Excel)

Имеет значение "True", если к новым строкам данных в таблице запроса применяется форматирование, характерное для первых пяти строк данных. Неиспользуемые ячейки не форматируются. Свойство имеет значение False , если последний автоформат, примененный к таблице запроса, применяется к новым строкам данных. Значение по умолчанию — True.

Синтаксис

выражение. PreserveFormatting

выражение Переменная, представляющая объект QueryTable .

Примечания

Для таблиц запросов к базам данных параметром по умолчанию является константаxlSimple.

Новый стиль "Автоформат" применяется к таблице запросов при обновлении таблицы. Параметр автоформата сбрасывается на "Нет", когда для параметра "СохранитьФорматирование" установлено значение "False". В результате любой автоформат, заданный до того, как для PreserveFormatting было установлено значение False и до обновления таблицы запросов, не вступал в силу, а к итоговой таблице запросов не было применено форматирование.

Если данные импортируются с помощью пользовательского интерфейса, данные из веб-запроса или текстового запроса импортируются как объект QueryTable , а все остальные внешние данные импортируются как объект ListObject .

Если данные импортируются с помощью объектной модели, данные из веб-запроса или текстового запроса должны быть импортированы как QueryTable, а все остальные внешние данные можно импортировать как ListObject или QueryTable.

Используйте свойство QueryTable объекта ListObject для доступа к свойству PreserveFormatting .

Пример

В этом примере форматирование первого отчета сводной таблицы сохранено на первом листе.

Worksheets(1).PivotTables("Pivot1").PreserveFormatting = True

В этом примере показано, как установка для параметра PreserveFormatting значения False приводит к тому, что для параметра AutoFormat задается значение xlRangeAutoFormatNone вместо указанного формата xlRangeAutoFormatColor1 .

With Workbooks(1).Worksheets(1).QueryTables(1) 
 .Range.AutoFormat = xlRangeAutoFormatColor1 
 .PreserveFormatting = False 
 .Refresh 
End With

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.