Свойство QueryTable.TextFileFixedColumnWidths (Excel)

Возвращает или задает массив целочисленных значений, соответствующих ширине столбцов (в символах) текстового файла, импортируемого в таблицу запроса. Допустимая ширина: от 1 до 32767 символов. Для чтения и записи, Variant.

Синтаксис

выражение. TextFileFixedColumnWidths

выражение Переменная, представляющая объект QueryTable .

Примечания

Используйте это свойство, только если таблица запросов основана на данных из текстового файла (при этом свойство QueryType имеет значение xlTextImport) и только в том случае, если значение свойства TextFileParseType равно xlFixedWidth.

Необходимо указать допустимую неотрицательную ширину столбца. Если указать столбцы, превышающие ширину текстового файла, эти значения игнорируются. Если ширина текстового файла превышает указанную общую ширину столбцов, остаток текстового файла импортируется в дополнительный столбец.

Если данные импортируются с помощью пользовательского интерфейса, данные из веб-запроса или текстового запроса импортируются как объект QueryTable , а все остальные внешние данные импортируются как объект ListObject .

Если данные импортируются с помощью объектной модели, данные из веб-запроса или текстового запроса должны быть импортированы как QueryTable, а все остальные внешние данные можно импортировать как ListObject или QueryTable.

Свойство TextFileFixedColumnWidths применяется только к объектам QueryTable .

Пример

В этом примере текстовый файл с полями фиксированного размера импортируется в новую таблицу запросов на первом листе первой книги. Первый столбец текстового файла имеет пять символов и импортируется как текст. Второй столбец имеет ширину четыре символа и пропускается. Оставшаяся часть текстового файла импортируется в третий столбец, к которому применяется общий формат.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.