VBAでUTF-8のテキストファイルを文字化けなしで読み込む

Sub 文字コード指定ファイル読込み()
    
    ' ADODBオブジェクトの生成
    Dim txt As Object
    Set txt = CreateObject("ADODB.Stream")
    Dim filePath As String
    filePath = "対象ファイルパス"
    
    With txt
        .Open
        .Type = 2                ' adTypeBinary = 1, adTypeText = 2
        .Charset = "UTF-8"       ' 文字コード
        .LoadFromFile (filePath) ' 読込み対象ファイルを指定
    End With
    
    ' 読込む行用の配列（可変）
    Dim tmp() As String
    ReDim Preserve tmp(0)
    
    ' ファイルの最後まで1行ずつ読込み
    Do While Not txt.EOS
        tmp(UBound(tmp)) = txt.ReadText(-2)  ' adReadLine = -2
        ReDim Preserve tmp(UBound(tmp) + 1)
    Loop
    
    ' 後片付け
    txt.Close
    Set txt = Nothing
    
    ' 取得した行をループ（ここから先はフリー）
    For i = 0 To UBound(tmp)
        Debug.Print tmp(i)
    Next
End Sub

タグ：VBA