Propiedad QueryTable.TextFileFixedColumnWidths (Excel)

Devuelve o establece una matriz de enteros que corresponden a los anchos de las columnas (en caracteres) del archivo de texto que se va a importar en una tabla de consulta. Los anchos válidos están comprendidos entre 1 y 32767 caracteres. Variante de lectura y escritura.

Sintaxis

expresión. TextFileFixedColumnWidths

Expresión Variable que representa un objeto QueryTable .

Comentarios

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) y solo si el valor de la propiedad TextFileParseType es xlFixedWidth.

Debe especificar un ancho de columna válido no negativo. Si especifica columnas que sobrepasen el ancho del archivo, se omitirán esos valores. Si el ancho del archivo de texto es mayor que el ancho total de las columnas que especifique, el saldo del archivo de texto se importa en una columna adicional.

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 TextFileFixedColumnWidths 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.