Propiedad QueryTable.PreserveColumnInfo (Excel)

True si se conserva la información acerca del orden, el filtrado y el diseño de las columnas cada vez que se actualice una tabla de consulta. El valor predeterminado es True. Boolean de lectura y escritura.

Sintaxis

expresión. PreserveColumnInfo

Expresión Variable que representa un objeto QueryTable .

Comentarios

Esta propiedad sólo tiene efecto cuando la tabla de consulta utiliza una conexión a base de datos.

Esta propiedad se puede establecer en False para mantener la compatibilidad con versiones anteriores de Microsoft Excel.

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 una QueryTable.

Utilice la propiedad QueryTable de ListObject para tener acceso a la propiedad PreserveColumnInfo .

Ejemplo:

Este ejemplo conserva la información acerca del orden, el filtrado y el diseño de las columnas para mantener la compatibilidad con versiones anteriores de Microsoft Excel.

Dim cnnConnect As ADODB.Connection 
Dim rstRecordset As ADODB.Recordset 
 
Set cnnConnect = New ADODB.Connection 
cnnConnect.Open "Provider=SQLOLEDB;" & _ 
 "Data Source=srvdata;" & _ 
 "User ID=wadet;Password=4me2no;" 
 
Set rstRecordset = New ADODB.Recordset 
rstRecordset.Open _ 
 Source:="Select Name, Quantity, Price From Products", _ 
 ActiveConnection:=cnnConnect, _ 
 CursorType:=adOpenDynamic, _ 
 LockType:=adLockReadOnly, _ 
 Options:=adCmdText 
 
With ActiveSheet.QueryTables.Add( _ 
 Connection:=rstRecordset, _ 
 Destination:=Range("A1")) 
 .Name = "Contact List" 
 .FieldNames = True 
 .RowNumbers = False 
 .FillAdjacentFormulas = False 
 .PreserveFormatting = True 
 .RefreshOnFileOpen = False 
 .BackgroundQuery = True 
 .RefreshStyle = xlInsertDeleteCells 
 .SavePassword = True 
 .SaveData = True 
 .AdjustColumnWidth = True 
 .RefreshPeriod = 0 
 .PreserveColumnInfo = True 
 .Refresh BackgroundQuery:=False 
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.