Excel VBAでPower Queryを経由して、ExcelのテーブルをJSON形式の文字列に変換するマクロを、VBAとM言語を用いて以下の条件に従って作ってください。

# 条件
1. 読み込み元のブック名は TOEIC問題.xlsm で、読み込み元のシート名は TOEIC600語彙問題 とする
2. 読み込み元のテーブル名は T_TOEIC とする
3. テーブルの列構成は次のとおりとする
   - ID
   - 問題
   - a
   - b
   - c
   - d
   - correct
   - example
   - translation
4. JSONのキー名は次のように変換する
   - ID → id
   - 問題 → question
   - a → a
   - b → b
   - c → c
   - d → d
   - correct → correct
   - example → example
   - translation → translation
5. 出力するJSONはレコードの配列形式にする
6. JSONは1つの文字列として、 TOEIC問題.xlsm と同じフォルダに新規に作成した data.json に出力する
7. M言語はArray関数でバリアント型変数に代入し、Join関数でvbCrLfを区切り文字にして結合する
8. M言語を格納する配列は、1要素につき1ステップとする
9. 関数の引数が複数行になる場合は、1要素内で記述する
10. VBAの行継続文字を減らすため、M言語の1ステップは可能な限り1つの文字列として記述する
11. JSON生成はセルにダミーでデータを展開せずに、VBAで直接JSON生成をして、後々Power QueryでJSONをExcelに展開できるようにする
12. JSONに出力する文字コードは「UTF-8」とする
13. クエリ名は JSON作成 とする
14. 処理後にWorkbookConnectionとクエリを削除する
15. エラー処理は不要とし、極力シンプルなマクロにする
