Propiedad QueryTable.TextFileColumnDataTypes (Excel)

Devuelve o establece una matriz ordenada de constantes que especifican los tipos de datos aplicados a las columnas correspondientes del archivo de texto que se va a importar en 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, esos valores se omiten.

Use xlEMDFormat solo si la compatibilidad con el idioma chino (Taiwán) está instalada y seleccionada. La constante xlEMDFormat especifica que se usan fechas de 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 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.

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.