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