Excel VBAでPower Queryを経由して、フォルダ内のすべてのExcelブックのデータを読み込むマクロを、VBAとM言語を用いて、以下の条件に従って作ってください。

#条件
1. 読み込むファイルがあるフォルダ名は PQ集計用 で、中の拡張子 .xlsx のファイルのみをすべて読み込む
2. PQ集計用 フォルダは読み込み先ブック（マクロを動かしているブック）と同じフォルダにある
3. M言語はArray関数とJoin関数は使わずに書く
4. M言語の行継続文字（ _）の使用回数は24回以内にする
5. M言語の1ステップは、可能な限り1つの文字列として記述する
6. 最初に読み込んだ .xlsx のヘッダーを新規テーブルのヘッダーにする
7. 1列目に列を追加し、列名を「元ブック」にして、データ部に読み込み元のファイル名を入力する
8. 先頭のテーブルをフィールド名にして縦結合する
9. 列順とデータ型は「元ブック」（文字列）、「伝票No」（整数）、「日付」（日付）、「顧客名」（文字列）、「売上金額」（整数）、「担当者名」（文字列）とする
10. 新規指定テーブルは「Sheet1」シートのセルA1を基点に展開する
11. ブックに追加する新規クエリの名前は 集計 とする
12. 新たに展開するテーブルは、テーブル名を T_集計 とする
13. クエリ 集計 を削除する
14. 「売上金額」列のデータ部を「桁区切り」にする
15. 読み込み元フォルダ内にExcelブックがないなどのエラー処理は一切考慮せずに極力シンプルなマクロにする
