こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

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

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

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

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

投稿日時 - 2019-08-14 18:16:44

QNo.9645645

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

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

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

投稿日時 - 2019-08-15 18:06:17

ANo.1

今晩は,
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

投稿日時 - 2019-08-15 16:45:15

あなたにオススメの質問