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

Возвращает или задает символ разделителя тысяч, который Microsoft Excel использует при импорте текстового файла в таблицу запросов. По умолчанию используется системный разделитель тысяч. Для чтения и записи, String.

Синтаксис

expression. TextFileThousandsSeparator

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

Замечания

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

В следующей таблице показаны результаты импорта текста в Microsoft Excel с помощью различных разделителей. Числовые результаты отображаются в крайнем правом столбце.

Системный разделитель десятичных разрядов	Разделитель системных тысяч	Значение TextFileDecimalSeparator	Значение TextFileThousandsSeparator	Импортированный текст	Значение ячейки (тип данных)
Period	Запятая	Запятая	Period	123.123,45	123,123,45 (числовое значение)
Period	Запятая	Запятая	Запятая	123.123,45	123.123,45 (текст)
Запятая	Period	Запятая	Period	123,123.45	123,123,45 (числовое значение)
Period	Запятая	Period	Запятая	123 123.45	123 123.45 (текст)
Period	Запятая	Period	Space	123 123.45	123,123,45 (числовое значение)

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

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

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

Пример

В этом примере исходный разделитель тысяч сохраняется и задает для него точку для первой таблицы запросов на Листе 1 в рамках подготовки к импорту французского текстового файла (например,) в версию Microsoft Excel на английском языке США.

strDecSep = Worksheets("Sheet1").QueryTables(1) _ 
 .TextFileThousandsSeparator 
Worksheets("Sheet1").QueryTables(1) _ 
 .TextFileThousandsSeparator = "."

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

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