Sub Sample_By_ChatGPT()
    Dim myPath As String
    Dim myQryStr As Variant
    
    'プロンプトの①と②（接続先指定）
    myPath = ThisWorkbook.Path & "\担当者売上明細.csv"
    
    'M言語のコマンド文字列作成
    myQryStr = Array( _
        "let", _
            "source = Csv.Document(File.Contents(""" & myPath & """)),", _
            "header = Table.PromoteHeaders(source),", _
            "filter = Table.SelectRows(header, each [担当者名] = ""大村あつし"")", _
        "in", _
            "filter" _
        )
        
    'M言語の文字列が配列に格納されているので、1つの文字列に変換
    myQryStr = Join(myQryStr, vbCrLf)
    
    'プロンプトの④（新規クエリの追加）
    ThisWorkbook.Queries.Add Name:="PQ接続", Formula:=myQryStr

    'プロンプトの⑤（シート上にテーブルとして展開）
    With ActiveSheet.ListObjects.Add( _
        SourceType:=0, _
        Source:="OLEDB;" & _
                "Provider=Microsoft.Mashup.OleDb.1;" & _
                "Data Source=$Workbook$;" & _
                "Location=PQ接続;", _
        Destination:=Range("A1") _
    )
        .QueryTable.CommandText = "SELECT * FROM [PQ接続]"
        .QueryTable.Refresh BackgroundQuery:=False
        'プロンプトの⑥（テーブル名の変更）
        .Name = "T_担当者売上明細"
    End With
    
    'プロンプトの⑦（クエリ定義の削除）
    ThisWorkbook.Queries("PQ接続").Delete
End Sub
