Utf8ToSjis(a_sFrom, a_sTo) ' モジュールレベルのプライベート変数と定数、Sub プロシージャ使用 ' UTF-8 LF改行のテキストファイルを Shift-Jis adCrLfに変換して保存する ' 未検証 ' Excel VBA Dim buf As String '11/28追加 Call CreateObjectADODB '// ファイル読み込み With sr ....