Как сохранить csv в utf 8 из excel

Сменить кодировку файла на UTF-8 в Excel

Если при импорте контактов вы видите нечитаемые символы, как на скриншоте, это значит, что кодировка файла не подходит для импорта в Unisender. Файл нужно перекодировать в UTF-8. Далее мы расскажем, как это сделать в Excel.

Создаем и открываем новый Excel файл.

Переходим на вкладку «Данные», выбираем «Получение внешних данных», а далее — «Из текста».

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

Открывается мастер импорта текста.
С текущей кодировкой содержимое файла нечитабельное.

В поле «Формат файла» перебираем кодировки, пока не найдём ту, в которой текст отображается правильно. Вариантов много, поэтому можно начать с форматов, которые начинаются со слова «Кириллица». Находим нужный формат, нажимаем «Далее».

Выбираем символы-разделители. В нашем случае это запятая.

Нажимаем «Далее» — «Готово» — «OK»

Так выглядит импортированный текст в Excel.

Теперь нажимаем «Файл» — «Сохранить как».

Выбираем место, где будет храниться файл. Вводим название файла, тип файла выбираем CSV, ниже нажимаем «Сервис» — «Параметры веб-документа».

Переходим на вкладку «Кодировка», выбираем «Юникод UTF-8» и нажимаем «OK».

Теперь импортируем его и видим, что текст отображается корректно.

Excel: Импорт .csv файлов в UTF-8 кодировке

У Вас есть файл в CSV формате и он открывается в Excel иероглифами (кракозябрами)? Не стоит отчаиваться. Эта проблема решается в несколько простых шагов в экселе. Если У Вас MS Excel старше 2003 версии — эта статья для Вас. А для пользователей, у которых офис 2003 или еще старее — шаги практически идентичные.

Как открыть цсв в экселе в UTF (или любой другой кодировке)

Открываем Microsoft Excel -> Кликаем вкладку «Данные» -> кликаем «Из текста»

Откроется окно, где необходимо выбрать нужную кодировку и если необходимо выбрать разделитель столбцов:

После этих несложных действий Excel откроет файл в нужном виде. Эксель работает со всем кодировками, необходимо просто подобрать нужную.

Как сохранить csv в utf 8 из excel

Необходимо сохранить страницу Excel в формате CSV в кодировке UTF-8
Предположим, необходимо сохранить страницу книги Excel c названием Z1 в файл Z1.csv.
Нашел такую процедуру на VBA

Application.DisplayAlerts = False
Sheets(«Z1»).Copy
ActiveWorkbook.SaveAs Filename:=»C:\Z1.csv», _
FileFormat:=xlCSV, CreateBackup:=False, local:=True

Все работает, но сохраняет в формате ANSI а необходимо сохранять в формате UTF-8
Прошу помощи в корректировки кода VBA.

Необходимо сохранить страницу Excel в формате CSV в кодировке UTF-8
Предположим, необходимо сохранить страницу книги Excel c названием Z1 в файл Z1.csv.
Нашел такую процедуру на VBA

Application.DisplayAlerts = False
Sheets(«Z1»).Copy
ActiveWorkbook.SaveAs Filename:=»C:\Z1.csv», _
FileFormat:=xlCSV, CreateBackup:=False, local:=True

Все работает, но сохраняет в формате ANSI а необходимо сохранять в формате UTF-8
Прошу помощи в корректировки кода VBA. vlsx1969

Сообщение отредактировал Serge_007 — Вторник, 02.11.2021, 09:25

Сообщение Необходимо сохранить страницу Excel в формате CSV в кодировке UTF-8
Предположим, необходимо сохранить страницу книги Excel c названием Z1 в файл Z1.csv.
Нашел такую процедуру на VBA

Application.DisplayAlerts = False
Sheets(«Z1»).Copy
ActiveWorkbook.SaveAs Filename:=»C:\Z1.csv», _
FileFormat:=xlCSV, CreateBackup:=False, local:=True

Все работает, но сохраняет в формате ANSI а необходимо сохранять в формате UTF-8
Прошу помощи в корректировки кода VBA. Автор — vlsx1969
Дата добавления — 02.11.2021 в 03:31

Группа: Модераторы
Ранг: Экселист
Сообщений: 7006
Замечаний: 0% ±

Excel 2007;2010;2016

vlsx1969, — Прочитайте Правила форума
— Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума
— Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

vlsx1969, — Прочитайте Правила форума
— Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума
— Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь) китин

Сообщение vlsx1969, — Прочитайте Правила форума
— Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума
— Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь) Автор — китин
Дата добавления — 02.11.2021 в 07:50

Как сохранить csv в utf 8 из excel

Исходный файл всегда в Excel. Программисту необходимо получать от меня файлы сохраненые в кодировке UTF-8 CSV.

поиск по форуму результатов не дал(

24.02.2010 23:01:16

Исходный файл всегда в Excel. Программисту необходимо получать от меня файлы сохраненые в кодировке UTF-8 CSV.

поиск по форуму результатов не дал(

Гуру — подскажите что делать-то ?

Пользователь
Сообщений: 2410 Регистрация: 01.01.1970
25.02.2010 08:43:52

Гуру — подскажите что делать-то ?В первую очередь ознакомиться с п. 4 отсюда: http://www.planetaexcel.ru/forum.php?thread_id=8735
Потом можно было посмотреть справку и узнать, что эксель умеет сохранять в следующих форматах:
xlCSV
xlCSVMac
xlCSVMSDOS
xlCSVWindows
или
xlUnicodeText

Отсюда вывод, что xlCSVUnicode — не существует и нужно идти обходными путями.
Например:
1. Сохранить как xlUnicodeText, а потом все знаки табуляции заменить на запятые (или точка с запятой — что там Ваш программист ждет в CSV)
Подходит если нет в исходном документе знаков табуляции.
2. Сохранить как xlCSV и сторонней программой перекодировать в Unicode

Bite my shiny metal ass!
Пользователь
Сообщений: 2410 Регистрация: 01.01.1970
25.02.2010 08:46:38

Еще можно отобрать гордое звание «программист» у того чувака, который может обрабатывать только UTF-8 CSV.
Пусть или не ждет, или не называется так.
🙂

Bite my shiny metal ass!
25.02.2010 12:41:11

Нашёл я тут ссылку на программу Killetsoft Convert 3.10. Может она поможет автору

P.S. Для скачивания нажмите Download Now.

25.02.2010 12:50:24
хотя, наверное, эта программа автору не подойдёт
25.02.2010 12:58:10

А хотя, если сперва в Excel’e сохранить файл в *.CSV, а затем этой программой пересохранить в *.CSV с кодировкой UTF-8, то подходит

25.11.2010 02:27:12

окрыть экселевский файл ***.xls с помощью OpenOffice; выбрать сахранить как Текс csv; при сохранении появится диалоговое меню, где будет предложено выбрать кодировку и символы разделения поля и текста.

Пользователь
Сообщений: 14868 Регистрация: 21.12.2012
E-mail и реквизиты в профиле.
25.11.2010 09:09:07

Еще можно отобрать гордое звание «программист» у того чувака, который может обрабатывать только UTF-8 CSV.
Пусть или не ждет, или не называется так.
🙂
Это да, согласен. Программист, мля.

Я сам — дурнее всякого примера! .
Пользователь
Сообщений: 23778 Регистрация: 22.12.2012
25.11.2010 09:09:45

Хоть и не неактуально, но не упомянули ещё вариант — генерить файл csv как текст макросом, на лету перекодируя строки в UTF-8. Код конвертера можно найти в сети, например (проверено):

Помогите чайнику!
Есть переменная типа стринг, в ней есть русские буквы, как сохранить её в файл(temp.txt), кодировка UTF-8 обязательна

Private Declare Function MultiByteToWideChar Lib «kernel32.dll» (ByVal CodePage As Long, _
ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, _
ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function WideCharToMultiByte Lib «kernel32.dll» (ByVal CodePage As Long, _
ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, _
ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, _
ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

Public Function EncodeUTF8(strSrc As String) As String
Dim nLen As Long
Dim strDst As String
Dim strRet As String
Dim nRet As Long
Dim p As Long

nLen = Len(strSrc)
strDst = String(nLen * 2, Chr(0))
strRet = String(nLen * 2, Chr(0))
p = StrPtr(strDst)
nRet = MultiByteToWideChar(1251, &H1, strSrc, nLen, p, nLen)
nRet = WideCharToMultiByte(65001, 0, p, nRet, StrPtr(strRet), nLen * 2, ByVal 0, 0)
EncodeUTF8 = Left$(StrConv(strRet, vbUnicode), nRet)
End Function

Sub WriteToFile()
Dim MyFile1$
Dim fso As Object
Dim Textfile As Object
Dim strUtf$

MyFile1 = «c:\Trans.txt»
Set fso = CreateObject(«Scripting.FilesystemObject»)
Set Textfile = fso.OpenTextFile(MyFile1, 2, True)

Textfile.WriteLine «encoding=»»UTF-8″»»
strUtf = EncodeUTF8(«Текст с кириллицей»)
Textfile.WriteLine strUtf
Textfile.Close