まちがっているところ

strSQL = " "
strSQL = strSQL & " SELECT "
strSQL = strSQL & " 商品コード, SUM(東京支店) AS TOKO"
strSQL = strSQL & " FROM"
strSQL = strSQL & " ( "
strSQL = strSQL & " SELECT "
strSQL = strSQL & " *"
strSQL = strSQL & " FROM"
strSQL = strSQL & " [3学期$] "
strSQL = strSQL & " UNION ALL "
strSQL = strSQL & " SELECT "
strSQL = strSQL & " *"
strSQL = strSQL & " FROM"
strSQL = strSQL & " [2学期$] "
strSQL = strSQL & " ) "
strSQL = strSQL & " GROUP BY 商品コード"
まちがっているところおしえてくれませんでしょうか

質問者からの補足コメント

• 

  strSQL = strSQL & " FROM"
  strSQL = strSQL & " [2学期$] S"
  strSQL = strSQL & " ) " ←この部分ですか
  strSQL = strSQL & " GROUP BY 商品コード"
  
  strSQL = strSQL & " ) AS 合計"とやりましたが
  列数が一致しませんとでます。
  お願いします。
  教えてください。

  No.2の回答に寄せられた補足コメントです。 補足日時：2018/10/10 22:27

No.4 ベストアンサー 回答者： めぐみん_ 回答日時： 2018/10/11 08:00

No.3です。

列数が一致しないとなっているならSheet構成がそれぞれで違うのではないですかね？（検証すると確かに列数が違うとエラーになる）

その場合それぞれのSheetでSELECTしたいフィールドを明確にする為に

strSQL = " "
strSQL = strSQL & " SELECT "
strSQL = strSQL & " 商品コード, SUM(東京支店) AS TOKO"
strSQL = strSQL & " FROM"
strSQL = strSQL & " ( "
strSQL = strSQL & " SELECT "
strSQL = strSQL & " 商品コード,東京支店" '★
strSQL = strSQL & " FROM"
strSQL = strSQL & " [3学期$] "
strSQL = strSQL & " UNION ALL "
strSQL = strSQL & " SELECT "
strSQL = strSQL & " 商品コード,東京支店" '★
strSQL = strSQL & " FROM"
strSQL = strSQL & " [2学期$] "
strSQL = strSQL & " ) AS 合計"
strSQL = strSQL & " GROUP BY 商品コード"

とフィールド名を記載したらエラーは消えましたよ。

No.3 回答者： めぐみん_ 回答日時： 2018/10/11 07:51

No.1です。

横から失礼します。

No.2さんの回答を受け変更した

＞strSQL = strSQL & " ) AS 合計"とやりましたが

はこちらでの検証では問題なく集計できてます。

各Sheetの項目名『商品コード』『東京支店』の記載ミスなどチェックされては？
或いは同じBookに双方のSheetがある訳ではなく、別のBookになっている訳ではないですよね？

No.2 回答者： kmee 回答日時： 2018/10/10 19:23

https://oshiete.goo.ne.jp/qa/10766613.html
> 2) 副クエリ (SELECT 〜) には、別名が必要です。

って書いたんですけどね。

https://oshiete.goo.ne.jp/qa/1701582.html

No.1 回答者： めぐみん_ 回答日時： 2018/10/10 19:23

この質問文だけ見ると間違っている箇所はなさそうです。

（ダミーBookに以前のコードを載せ更にこのコードをそのまま貼り付けて集計は出来ました）

なのでどのような状況でどのように接続・集計貼り付け（ようするにコード全体）がなっているのか、エラー表示があるなら何なのかによると思いますよ。
シート名の数値が全角・半角の取違とかはないですよね？