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

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

Синтаксис

выражение. TextFileThousandsSeparator

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

Примечания

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

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

Системный десятичный разделитель	Системный разделитель групп разрядов	Значение TextFileDecimalSeparator	TextFileThousandsSeparator value	Импортированный текст	Значение ячейки (тип данных)
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 и обратная связь.