Sub T_売上から大村だけ抽出する()
    Dim mCode As Variant
    Dim formulaText As String
    Dim ws As Worksheet
    Dim lo As ListObject

    Set ws = ActiveSheet

    mCode = Array( _
        "let", _
        "    ソース = Excel.CurrentWorkbook(){[Name=""T_売上""]}[Content],", _
        "    抽出された行 = Table.SelectRows(ソース, each [担当] = ""大村"")", _
        "in", _
        "    抽出された行" _
    )

    formulaText = Join(mCode, vbCrLf)

    ThisWorkbook.Queries.Add _
        Name:="大村の売上", _
        Formula:=formulaText

    Set lo = ws.ListObjects.Add( _
        SourceType:=0, _
        Source:="OLEDB;Provider=Microsoft.Mashup.OleDb.1;" & _
                "Data Source=$Workbook$;" & _
                "Location=大村の売上;" & _
                "Extended Properties=""""", _
        Destination:=ws.Range("E1") _
    )

    lo.Name = "T_大村の売上"

    With lo.QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [大村の売上]")
        .Refresh BackgroundQuery:=False
    End With

    ThisWorkbook.Queries("大村の売上").Delete
End Sub
