Accessのテーブルにexcelのシート名（タブ名）とデータとを同時に自動でインポートしたい。

Question

実現したいこと

複数のsheet(タブ）(以下、sheetと統一して記載します。）を含むexcelのファイルから、
sheet名と各sheetに記録されているデータの両方をAccessのテーブルに第一正規型で取り込む方法を検討しています。

現状・発生している問題

かいつまむと、
DoCmd.TransferSpreadsheet　TransferType:=acImport（以下略）
を使って、excelのファイルからすべてのsheetのデータを
Accessのテーブルに取り込むことはできたのですが、取り込まれた
データがどのsheetのものであるのか分からない状態になっています。

例えば、店舗の来訪者数を記録したexcelのファイルがあるとします。

このファイルには、複数の店舗における時間帯毎の来客数を一店舗/１sheetにまとめて
記録されていて、sheetの名称に（例えば）、”品川店”、”秋葉原店”、”上野店”といった
名称が付され、品川店の来訪者数が、sheet名「品川店」のsheetに記録されるといった具合です。

このファイルのすべてのsheetをAccessの一つのテーブルに取り込むことは
ことはできているのですが、取り込まれたデータには店舗の情報が無いため、
accessのテーブルのデータを見ただけでは、来訪者のデータがどの店舗のものなのか
わからない状態になっています。

【以上をふまえて】
Access のテーブルに店舗情報が入力されるフィールドを増やし、そこに、sheet名が、”各sheetに記録
されているレコードの行数分だけ繰り返し格納”され、併せ時間帯ごとの来訪者数が収録される様にしたい
と考えています。

つまり、excelのファイルに保存されているsheet名と各sheetに保存されているデータをAccessのテーブルに第一正規型で保存しなおしたいのです。

補足情報

excelの各シートに店舗名を入れるというのは無しです。
excelのファイルは編集不可という前提で検討中です。

ご回答、よろしくお願いします。

Answer 1

インポートではフィールドを追加することは難しいので、
DoCmd.TransferSpreadsheet　TransferType:=acLink
でリンクテーブルを作成して、
そのリンクテーブルから追加クエリを作成、その追加クエリに、シート名のフィールドを追加すればいいかと。追加クエリはコードでSQLを生成して、DoCmd.RunSQLかCurrentDB.Executeで実行します。

あるいは、ADOでレコードセットとしてシートデータを開いて、テーブルに追加していくという方法もあります。

自分が得意な方でやればいいでしょう。

Comments

[gunmaSan]

早速のご回答ありがとうございました。
インポートだけでは作業が困難であることが分かったことだけでも助かりました。
教えていただいた情報をもとにさらに検討してみます。