Преобразование Excel (XLS) в CSV с помощью UTF-8 с использованием VBA

Я пытаюсь преобразовать excel в csv с UTF-8 в макрос. Но при преобразовании содержимое меняется на нежелательные символы и текст.

Пожалуйста, помогите мне в разрешении этого.

Public Sub convert_UnicodeToUTF8() Dim parF1, parF2 As String parF1 = "D:\test.xlsx" parF2 = "D:\test.csv" Const adSaveCreateOverWrite = 2 Const adTypeText = 2 Dim streamSrc, streamDst ' Source / Destination Set streamSrc = CreateObject("ADODB.Stream") Set streamDst = CreateObject("ADODB.Stream") streamDst.Type = adTypeText streamDst.Charset = "utf-8" streamDst.Open With streamSrc .Type = adTypeText .Charset = "Unicode" ' this is also the default value .Open .LoadFromFile parF1 .copyTo streamDst .Close End With streamDst.saveToFile parF2, adSaveCreateOverWrite streamDst.Close Set streamSrc = Nothing Set streamDst = Nothing End Sub 

Благодарю.

• Соединение с кодировкой Excel
• Почему MS Excel не открывает файл CSV, содержащий японские символы в содержимом?
• Как исправить кодировку при создании файла excel из данных «utf-8» с помощью python
• Странные символы при экспорте в Excel
• ошибка кодирования CSV, отличная от английского, среди PC / MAC / Ubuntu