More than 5 years have passed since last update.

VBAでUTF-8のテキストを読み込む

ExcelVBA

Last updated at 2013-11-26Posted at 2013-11-25

Public Function ReadUTF8Text(isFilePath As String) As String

    'オブジェクトを作る
    Dim objStream As Object
    Set objStream = CreateObject("ADODB.Stream")

    '読み込むテキストのタイプを設定する
    '指定できるタイプはadTypeBinary(バイナリ)とadTypeText(テキスト)
    objStream.Type = adTypeText

    '文字コードをUTF-8に設定する
    '指定できる文字コードはHKEY_CLASSES_ROOT\MIME\Database\Charsetのサブキー
    objStream.Charset = "UTF-8"

    'ストリームを開く
    objStream.Open

    'ファイルを読み込む
    objStream.LoadFromFile(isFilePath)

    'テキスト内容を返却する
    ReadUTF8Text = objStream.ReadText

    'ストリームを閉じる
    objStream.Close

    Set objStream = Nothing

End Function

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up