Сохранить лист Excel как CSV в UTF-8 С помощью VBA

Я работаю над следующим макросом в excel, который перебирает все листы в книге и сохраняет каждый в свой собственный .CSV-файл. Проблема в том, что мне это нужно, чтобы сохранить как .csv в кодировке UTF-8. Я читал кодировку Excel по умолчанию .csv-это ANSI, который не будет работать для меня, потому что у меня есть файлы со специальными символами в них. Кто-нибудь знает, как я могу это сделать?

макрос:

Public Sub ExportSheetsToCSV()

Dim wsExport As Worksheet
Dim wbkExport As Workbook

For Each wsExport In Worksheets
wsExport.Select
nm = wsExport.Name
If Not IsActiveSheetEmpty() Then
    ActiveSheet.SaveAs fileName:="H:CSV_Split_Exports" & nm, FileFormat:=xlCSV
    Application.DisplayAlerts = True
End If

Next wsExport

End Sub
27
задан Jason Blocklove
03.03.2023 21:48 Количество просмотров материала 3094
Распечатать страницу

1 ответ

"простой способ" - сохранить как " текст Unicode."Это будет UTF-16,tab формат с разделителями, а не запятая.

большинство процессов импорта программного обеспечения позволяет указать разделитель при импорте данных, но если ваше конкретное приложение этого не делает, вы можете после обработки файла с помощью find+replace изменить вкладку на запятую.

0
отвечен Yorik 2023-03-05 05:36

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх