『EXCELのデータをUnicode(UTF-16)形式のCSVに出力』

EXCELでCSVを出力すると、Shift-Jisのままになってしまうので、第2水準漢字などが「?」に変換されてしまう。 それを、VBAで対応しようしたのが以下のソース。 かなり重宝するのでメモとして残す。 ちなみに、「EXCEL UNICODe CSV マクロ」で検索して見つけたサイトに記載されていた。 回答した方に拍手！！ ------------------- 'Option Explicit Sub CSV_OutputByUnicode() Dim rng As Range Dim i As Long, j As Long Dim Fso As Object Dim f As Object Dim fName As Variant Dim buf As String Dim TxtLine As String Dim objTxt As Object Dim OverWrite

[kuronama2404]

FSOのCreateTextFileでオプション指定するだけで良かったでござる…。

[katow]

試そう、これが必要