Sub 固定長テキストをPowerQueryで読み込む()
    Dim filePath As String
    Dim mCode As String
    Dim ws As Worksheet
    Dim lo As ListObject

    filePath = ThisWorkbook.Path & "\固定長テキストファイル.txt"

    mCode = _
        "let" & vbCrLf & _
        "    ソース = Lines.FromBinary(File.Contents(""" & filePath & """), null, null, 932)," & vbCrLf & _
        "    データ行 = List.Skip(ソース, 1)," & vbCrLf & _
        "    テーブル化 = Table.FromList(データ行, Splitter.SplitByNothing(), {""元データ""})," & vbCrLf & _
        "    CODE追加 = Table.AddColumn(テーブル化, ""CODE"", each Text.FromBinary(Binary.Range(Text.ToBinary([元データ], 932), 0, 4), 932))," & vbCrLf & _
        "    名称追加 = Table.AddColumn(CODE追加, ""名称"", each Text.TrimEnd(Text.FromBinary(Binary.Range(Text.ToBinary([元データ], 932), 4, 10), 932)))," & vbCrLf & _
        "    点追加 = Table.AddColumn(名称追加, ""点"", each Text.FromBinary(Binary.Range(Text.ToBinary([元データ], 932), 14, 2), 932))," & vbCrLf & _
        "    不要列削除 = Table.RemoveColumns(点追加, {""元データ""})" & vbCrLf & _
        "in" & vbCrLf & _
        "    不要列削除"

    ThisWorkbook.Queries.Add _
        Name:="PQ接続", _
        Formula:=mCode

    Set ws = ActiveSheet

    Set lo = ws.ListObjects.Add( _
        SourceType:=0, _
        Source:="OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=PQ接続;Extended Properties="""";", _
        Destination:=ws.Range("A1"))

    With lo.QueryTable
        .CommandType = xlCmdSql
        .CommandText = "SELECT * FROM [PQ接続]"
        .Refresh BackgroundQuery:=False
    End With

    lo.Name = "T_固定長"

    ThisWorkbook.Queries("PQ接続").Delete
End Sub