Me gustaría exportar un archivo que he creado en UTF-8 CSV usando VBA. Desde la búsqueda en los tableros de mensajes, he encontrado el siguiente código que convierte un archivo a UTF-8 (de este hilo):

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 

Sin embargo, este código solo convierte un archivo que no es UTF-8 a UTF-8. Si tuviera que guardar mi archivo en un formato distinto a UTF-8 y luego convertirlo a UTF-8, ya habría perdido todos los caracteres especiales que contenía, por lo que el proceso no tendría sentido.

Lo que estoy buscando hacer es guardar un archivo abierto en UTF-8 (CSV). ¿Hay alguna manera de hacer esto con VBA?

nótese bien. También he hecho esta pregunta en elforo 'ozgrid'. Cerraré ambos hilos juntos si encuentro una solución.