Преобразование 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 

Благодарю.

Interesting Posts
Давайте будем гением компьютера.