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

Возвращает или задает упорядоченный массив констант, указывающий типы данных, применяемые к соответствующим столбцам в текстовом файле, импортируемом в таблицу запросов. Константой по умолчанию для каждого столбца является xlGeneral. Для чтения и записи, Variant.

Синтаксис

expression. TextFileColumnDataTypes

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

Замечания

Используйте константы XlColumnDataType , чтобы указать типы данных столбцов или действия, выполняемые во время импорта данных.

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

Если в массиве указано больше элементов, чем столбцов, эти значения игнорируются.

Используйте xlEMDFormat , только если установлена и выбрана поддержка китайского языка (Тайвань). Константа xlEMDFormat указывает, что используются даты китайской эры (Тайвань).

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

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

Свойство TextFileColumnDataTypes применяется только к объектам 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 и обратная связь.