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

más sencilla.PreserveFormatting

expresión Variable que representa un objeto QueryTable .

Comentarios

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

El nuevo estilo de formato automático se aplica a la tabla de consulta cuando se actualiza la tabla. El Autoformato se restablece a Ninguno siempre que PreserveFormatting se establece en Falso. Como resultado, cualquier AutoFormat que se establezca antes de PreserveFormatting se establezca en False y antes de que se actualice la tabla de consultas no surte efecto, y la tabla de consultas resultante no tiene ningún formato aplicado.

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

Si importa datos mediante el modelo de objetos, los datos de una consulta web o de una consulta de texto se deben importar como QueryTable, mientras que el resto de los datos externos se pueden importar como ListObject o QueryTable.

Use la propiedad QueryTable de ListObject para obtener 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.