Propiedad QueryTable.TextFileColumnDataTypes (Excel)

Devuelve o establece una matriz ordenada de constantes que especifican los tipos de datos aplicados a las columnas correspondientes en el archivo de texto que va a importar a una tabla de consulta. La constante predeterminada de cada columna es xlGeneral. Variante de lectura y escritura.

Sintaxis

expresión. TextFileColumnDataTypes

expresión Variable que representa un objeto QueryTable .

Comentarios

Use las constantes XlColumnDataType para especificar los tipos de datos de columna usados o las acciones realizadas durante la importación de datos.

Use esta propiedad solo cuando la tabla de consulta se base en datos de un archivo de texto (con la propiedad QueryType establecida en xlTextImport).

Si especifica más elementos en la matriz que columnas, estos valores se omiten.

Use xlEMDFormat solo si la compatibilidad con idioma chino (Taiwán) está instalada y seleccionada. La constante xlEMDFormat especifica que se usan fechas de la era china (Taiwán).

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 el resto de 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 deben importarse como querytable, mientras que todos los demás datos externos se pueden importar como ListObject o QueryTable.

La propiedad TextFileColumnDataTypes se aplica únicamente a objetos QueryTable.

Ejemplo

Este ejemplo importa un archivo de texto de ancho fijo en una nueva tabla de consulta de la primera hoja de cálculo del primer libro. La primera columna tiene un ancho de cinco caracteres y se importa como texto. El ancho de la segunda columna es de cuatro caracteres y se omite. El resto del archivo de texto se importa en la tercera columna y tiene el formato General.

Set shFirstQtr = Workbooks(1).Worksheets(1) 
Set qtQtrResults = shFirstQtr.QueryTables _ 
 .Add(Connection := "TEXT;C:\My Documents\19980331.txt", _ 
 Destination := shFirstQtr.Cells(1, 1)) 
With qtQtrResults 
 .TextFileParseType = xlFixedWidth 
 .TextFileFixedColumnWidths = Array(5, 4) 
 .TextFileColumnDataTypes = _ 
 Array(xlTextFormat, xlSkipColumn, xlGeneralFormat) 
 .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.