Sub 大村の売上分析を作成する()
    Dim filePath As String
    Dim mCode As Variant
    Dim formulaText As String
    Dim ws As Worksheet
    Dim lo As ListObject

    filePath = ThisWorkbook.Path & "\7-2-売上元データ.csv"

    mCode = Array( _
        "let", _
        "    ソース = Csv.Document(File.Contents(""" & filePath & """), [Delimiter="","", Encoding=932, QuoteStyle=QuoteStyle.Csv]),", _
        "    ヘッダー昇格 = Table.PromoteHeaders(ソース, [PromoteAllScalars=true]),", _
        "    型変換 = Table.TransformColumnTypes(ヘッダー昇格, {{""売上金額"", Int64.Type}}),", _
        "    行の抽出 = Table.SelectRows(型変換, each [担当者] = ""大村"" and [売上金額] >= 10000)", _
        "in", _
        "    行の抽出" _
    )

    formulaText = Join(mCode, vbCrLf)

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

    Set ws = ThisWorkbook.Worksheets("Sheet1")

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

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

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

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