VBA UTF-8のCSV ファイル（タブ区切り、カンマ区切り）の読み込み

Blog

2021.04.192021.04.13

概要
前提条件
サンプルテキスト(タブ区切り)
サンプルコード(タブ区切り)
サンプルコード実行結果
【補足】サンプルコード(カンマ区切り)
エクセルにある値をUTF-8(BOMなし)改行コードLFに出力する場合
参考リンク

概要

文字コード：UTF-8(BOMなし)、改行コード：LF、区切り文字：タブのテキストをエクセルファイルに文字化けさせずにインポートする

前提条件

・エクセルの「開発」タブでVBAコード作成できること
・多少VBAわかること
・インポートするファイルはご自身で作成下さい

サンプルテキスト(タブ区切り)

サンプルコード(タブ区切り)

Sub utf8import()
    Dim ws As Worksheet
    Dim qtbl As QueryTable
    Dim getfilepath As String
    
    Set ws = ActiveSheet
    
    getfilepath = Application.GetOpenFilename("ブック, *.txt") ' .txtファイルを選ぶ
    If getfilepath <> "False" Then
    Else
        MsgBox "キャンセル"
        End
    End If
    
    Set qtbl = ws.QueryTables.Add(Connection:="TEXT;" & getfilepath, Destination:=ws.Range("A1")) ' CSV を開く
    With qtbl
        .TextFilePlatform = 65001        ' 文字コード UTF-8
        .TextFileTabDelimiter = True     ' タブ区切り
        .RefreshStyle = xlOverwriteCells ' 上書き
        .Refresh                         ' 表示する
        .Delete                          ' CSV接続 解除
    End With

End Sub

サンプルコード実行結果

【補足】サンプルコード(カンマ区切り)

Sub utf8importcsv()
    Dim ws As Worksheet
    Dim qtbl As QueryTable
    Dim getfilepath As String
    
    Set ws = ActiveSheet
    
    getfilepath = Application.GetOpenFilename("ブック, *.csv") ' .csvファイルを選ぶ
    If getfilepath <> "False" Then
    Else
        MsgBox "キャンセル"
        End
    End If
    
    Set qtbl = ws.QueryTables.Add(Connection:="TEXT;" & getfilepath, Destination:=ws.Range("A1")) ' CSV を開く
    With qtbl
        .TextFilePlatform = 65001        ' 文字コード UTF-8
        .TextFileCommaDelimiter = True   ' カンマ区切り
        .RefreshStyle = xlOverwriteCells ' 上書き
        .Refresh                         ' 表示する
        .Delete                          ' CSV接続 解除
    End With

End Sub

※getfilepath とTextFileCommaDelimiter が変わるだけ