ACCESS 2019で複数のファイルをインポート

質問

初心者ですがよろしくお願いします。

只今、規定のフォルダに入っているEXCELファイルを
全て自動で取り込むマクロを作成したいと考えています。
ファイルの項目は全て同じですが、複数のシートがあるため、
特定ののみ抽出してひとつのテーブルにまとめたいです。

ネットで検索し試行錯誤したのですが、
初心者レベルのために理解できずにおります。

どうぞよろしくお願いいたします！

回答No.2

chayamati

回答No.1の追伸です。
インポートできるSheetsの要件は
　1行目が項目名で、2行目以降に明細行が続いているか、
　テーブル定義されたセル群

準備作業のインポートですが,Sheetsのコピペでも可能ですが
リボンのツールでやって下さい
外部データ→新しいデータソース→ファイルから→Fxcel→参照→OK→

回答No.1

chayamati

今晩は,
Excelへのエキスポートはやっていますが、
インポートはやっていませんすのでどうなることやら
一つのシートから一つのテーブルへインポートされます。
1.準備作業
　手作業でインポートし、作成されたテーブルを受取テーブルとし
　フィールドのデータ型のプロパティーを見直し
　コピペで受取確定テーブルとします
2.本番：ダブって処理をしても大丈夫なように受取確定テーブルの初期化から
　はじめます。

　警告が頻繁に出て中断します処理が確認出来たら警告をFalseにします。
DoCmd.SetWarnings True
DoCmd.RunSQL ("delete from 受取確定 ;")
---------------
DoCmd.TransferSpreadsheet acInport,以下は参考URAをご覧ください
DoCmd.RunSQL ("insert into 受取確定(*がダメなら,区切りでフィールド名) select * from 受取 ;")
---------------
-------------------------
内の2行をSheetsの数だけ繰り返す。

参考URL：

https://docs.microsoft.com/ja-jp/office/vba/api/access.docmd.transfertext