Как изменить разделитель по умолчанию при импорте текста в Excel?

Question

Я хочу импортировать файл CSV в Excel. Файл CSV содержит данные, разделенные запятыми (рисунок), но по умолчанию в мастере импорта текста в качестве разделителя установлено значение "Tab". Как можно вместо этого изменить значение по умолчанию на "Запятая"?

Answer 1

(Предполагая интерфейс Office 2003)

Не используйте File> Open.

Вместо этого используйте Данные> Импорт внешних данных> Импорт данных ...

Это вызовет Мастер импорта текста, который позволит вам выбрать разделитель.

Или, если вы используете более новый интерфейс, перейдите на вкладку Данные > Из текста:

Откроется диалоговое окно «Открыть файл», после которого появится то же диалоговое окно «Импорт текста».

Answer 2

Это параметр Windows, который будет использоваться всеми программами, которые ссылаются на него (в данном случае Excel).

1. Нажмите кнопку Пуск, а затем нажмите Панель управления.
2. Откройте диалоговое окно «Язык и региональные стандарты».
3. Выполните одно из следующих действий. В Windows Vista/7 перейдите на вкладку «Форматы» и нажмите «Настроить этот формат». В Windows XP откройте вкладку «Региональные параметры» и нажмите «Настроить».
4. Введите новый разделитель в поле Разделитель списка.
5. Нажмите ОК дважды.

Answer 3

Похоже, что Excel использует последний использованный разделитель в сеансе. Дэйв Петерсон описывает возможное решение здесь Вы по существу создать макрос , который устанавливает разделитель по умолчанию и поместите его в папку Xlstart. Если вы делаете это для файла на машинах других людей, это, вероятно, не сработает, но именно так вы подходите к нему программно в вашей собственной системе, и вы можете адаптировать его к вашей ситуации. Выполнение следующего кода должно установить разделитель для вас заранее. Это будет работать на существующей сессии. Поэтому, если у вас есть контент, который ожидает установки определенных разделителей, запустите что-то подобное до импорта, задав любые параметры, которые вам нравятся

With ThisWorkbook.Worksheets(1).Range("a1")
 .TextToColumns Destination:=.Columns(1), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote,  ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False
End With
ThisWorkbook.Close SaveChanges:=False