Сохранение страницы Excel в формате CSV в кодировке UTF-8

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Сохранение страницы Excel в формате CSV в кодировке UTF-8 (Макросы/Sub)

vlsx1969

Дата: Вторник, 02.11.2021, 03:31 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

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

[vba]

Код

Sub Z1()

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

ActiveWindow.Close
Application.DisplayAlerts = True

End Sub

[/vba]

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

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

Ответить

китин

Дата: Вторник, 02.11.2021, 07:50 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

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