クエリ中のサブデータシート部分のみをエクセルにエクスポートする作業を自動化したい

Question

実現したいこと

クエリ中の各行に付属しているサブデータシートのみをエクセルへコピーペーストする必要があるのですが、行数が無数にあるので、マウスで手動でコピーペーストするのには時間がかかってしまいます。
そこでクエリで取得した全行に対して、自動でサブデータシートのみを取得、エクセルへペーストする作業を自動化したいです。

聞きたいこと

クエリ中の各行に付属しているサブデータシートをエクセルへコピーペーストするVBA関数があれば教えていただけないでしょうか。

実際のテーブルとクエリ

テーブル1の「ID」とテーブル２の「都道府県コード」をリレーションシップで対応付けています。
クエリ１のサブデータシート（各県における市の情報）のみをコピペして使いたいのですが、
全選択できないので、各県ごとに手動でコピペしています。

テーブル１

テーブル２

クエリ

Answer 1

メインのテーブルとサブのテーブルをリンクフィールドで結合したクエリを作成してご希望の結果になるようにすればいいかと思います。そのクエリをコピーしてエクセルに貼り付けるか、エクスポートすればいいでしょう。

Comments

[kurage]

ご返信ありがとうございます。初心者質問で申し訳ございません。

>>メインのテーブルとサブのテーブルをリンクフィールドで結合したクエリを作成し～～
クエリのサブデータシート作成時にリンク子フィールドをテーブル2の都道府県コード、親フィールドをテーブル１の「ID」としているのですが、それとはまた別の設定が必要ということでしょうか。（質問にサンプルのテーブルデータとクエリを追記しました。このクエリ１からサブデータシート（各県における市の情報）のみをコピペして使いたいと考えています。）

[hatena19]

サブデータシートのみを取り出したら、結局、テーブル２と同じものになると思いますが、最終的にどのようなデータが欲しいのでしょうか。
ご希望のエクセルへの出力結果も質問に追記してもらえますか。
あと、現状のクエリ1のSQL文も追記してください。