Como converter UTF-8 para SHIFT-JIS usando vba

Question

Estou desenvolvendo um aplicativo que lê de um arquivo de texto e grava em um arquivo CSV.
Como os caracteres no arquivo de texto são UTF-8, o arquivo CSV também contém os mesmos caracteres.
Por causa do UTF-8, Double Byte (caractere japonês) não pode ser gravado corretamente em um arquivo CSV. Por favor, explique a melhor maneira de escrever os dados corretos.

    

Answer 1

A maioria das respostas que vi são soluções de trabalho, fazendo isso manualmente no Google Docs ou no NotePad ++ ou similar. O link que eu dou oferece muitas sugestões que podem ou não ser suficientes. A única resposta de Eric pode ser a mais útil:

... I tried saving the xlsx file to xls first, then to csv. It actually worked.

Infelizmente, uma das respostas simplesmente é escrita

I was not able to find a VBA solution for this problem on Mac Excel. There simply seemed to be no way to output UTF-8 text.

Fonte e mais opções

Você pode fazer isso em CSV, depois escrever um script para convertê-lo no NotePad ++, mas parece que pode haver algum trabalho manual.