Поделиться через

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

  • Статья

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

Синтаксис

expression. PreserveFormatting

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

Замечания

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

Новый стиль автоформата применяется к таблице запросов при обновлении таблицы. Если параметру PreserveFormatting задано значение False, для параметра AutoFormat будет задано значение None. В результате любой параметр AutoFormat, заданный перед Параметром 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 и обратная связь.