Я хотел бы экспортировать файл, который я создал в CSV UTF-8, используя VBA. Из поиска на досках объявлений я нашел следующий код, который преобразует файл в UTF-8 (из этой темы):

Sub SaveAsUTF8() 

    Dim fsT, tFileToOpen, tFileToSave As String 

    tFileToOpen = InputBox("Enter the name and location of the file to convert" & vbCrLf & "With full path and filename ie. C:\MyFolder\ConvertMe.Txt") 
    tFileToSave = InputBox("Enter the name and location of the file to save" & vbCrLf & "With full path and filename ie. C:\MyFolder\SavedAsUTF8.Txt") 

    tFileToOpenPath = tFileToOpen 
    tFileToSavePath = tFileToSave 

Set fsT = CreateObject("ADODB.Stream"): 'Create Stream object
fsT.Type = 2: 'Specify stream type – we want To save text/string data.
fsT.Charset = "utf-8": 'Specify charset For the source text data.

fsT.Open: 'Open the stream
fsT.LoadFromFile tFileToOpenPath: 'And write the file to the object stream

fsT.SaveToFile tFileToSavePath, 2: 'Save the data to the named path

End Sub 

Однако этот код преобразует только файл, отличный от UTF-8, в UTF-8. Если бы я сохранил свой файл в формате не-UTF-8, а затем преобразовал его в UTF-8, он бы уже потерял все содержащиеся в нем специальные символы, что сделало бы процесс бессмысленным!

Я хочу сохранить открытый файл в формате UTF-8 (CSV). Есть ли способ сделать это с VBA?

нотабене Я также задавал этот вопрос на& APOS; OzGrid & APOS; Форум, Я закрою обе темы вместе, если найду решение.