Propriedade QueryTable.PreserveFormatting (Excel)

True se alguma formatação comum às cinco primeiras linhas de dados for aplicada às novas linhas de dados na tabela de consulta. Células não utilizados não são formatadas. A propriedade será False se a última AutoFormatação aplicada à tabela de consulta for aplicada às novas linhas de dados. O valor padrão é True.

Sintaxe

expressão. PreserveFormatting

Expressão Uma variável que representa um objeto QueryTable .

Comentários

Para tabelas de consulta de banco de dados, a configuração de formatação padrão é a constantexlSimple.

O novo estilo de AutoFormatação será aplicado à tabela de consulta quando a tabela for atualizada. A AutoFormatação será redefinida como None sempre que PreserveFormatting for definido como False. Como resultado, qualquer AutoFormat definido antes de PreserveFormatting é definido como False e antes que a tabela de consulta seja atualizada não entre em vigor e a tabela de consulta resultante não tenha nenhuma formatação aplicada a ela.

Se você importar dados usando a interface do usuário, os dados de uma consulta Web ou uma consulta de texto serão importados como um objeto QueryTable , enquanto todos os outros dados externos serão importados como um objeto ListObject .

Se você importar dados usando o modelo de objeto, os dados de uma consulta Web ou de uma consulta de texto devem ser importados como uma QueryTable, enquanto todos os outros dados externos podem ser importados como um ListObject ou um QueryTable.

Use a propriedade QueryTable do ListObject para acessar a propriedade PreserveFormatting .

Exemplo

Este exemplo preserva a formatação do primeiro relatório de tabela dinâmica na planilha um.

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

Este exemplo demonstra como a definição de PreserveFormatting como False faz com que a AutoFormatação seja definida como xlRangeAutoFormatNone em vez do formato xlRangeAutoFormatColor1 especificado.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.