Propiedad QueryTable.PreserveFormatting (Excel)

Es True si se aplica un formato común de las cinco primeras filas de datos a filas nuevas de datos de la tabla de consulta. Las celdas sin usar no tienen formato. La propiedad es False si se aplica a las nuevas filas de datos el último formato automático aplicado a la tabla de consulta. El valor predeterminado es True.

Sintaxis

expresión. PreserveFormatting

expresión Variable que representa un objeto QueryTable .

Observaciones

Para las tablas de consulta de base de datos, la configuración de formato predeterminada es la constantexlSimple.

El nuevo estilo autoformato se aplica a la tabla de consulta cuando se actualiza la tabla. El autoformato se restablece a None siempre que PreserveFormatting se establece en False. Como resultado, cualquier autoformato establecido antes de PreserveFormatting se establece en False y antes de actualizar la tabla de consulta no surte efecto, y la tabla de consulta resultante no tiene ningún formato aplicado.

Si importa datos mediante la interfaz de usuario, los datos de una consulta web o una consulta de texto se importan como un objeto QueryTable , mientras que todos los demás datos externos se importan como un objeto ListObject .

Si importa datos mediante el modelo de objetos, los datos de una consulta web o una consulta de texto se deben importar como queryTable, mientras que todos los demás datos externos se pueden importar como Un Objeto ListObject o queryTable.

Use la propiedad QueryTable de ListObject para tener acceso a la propiedad PreserveFormatting .

Ejemplo

En este ejemplo se mantiene el formato del primer informe de tabla dinámica de la hoja uno.

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

En este ejemplo se demuestra cómo, al establecer PreserveFormatting en False, el formato automático se establece como xlRangeAutoFormatNone en lugar del formato de xlRangeAutoFormatColor1 especificado.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.