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. As células não utilizadas 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 base de dados, a definição de formatação predefinida é 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 Formatação Automática definida antes de PreserveFormatting está definida como Falso e antes de a tabela de consulta ser atualizada não entrar em vigor e a tabela de consulta resultante não tem formatação aplicada à mesma.

Se importar dados através da interface de utilizador, os dados de uma consulta Web ou de uma consulta de texto são importados como um objeto QueryTable , enquanto todos os outros dados externos são importados como um objeto ListObject .

Se importar dados com o modelo de objeto, os dados de uma consulta Web ou de uma consulta de texto têm de ser importados como uma Tabela de Consulta, enquanto todos os outros dados externos podem ser importados como um ListObject ou uma QueryTable.

Utilize a propriedade QueryTable do ListObject para aceder à 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.