【AccessVBA】フォルダを指定してインポート

質問

私は現在、Accessでフォルダ内のExcelファイルを一括でインポートし集計するというツールを作成しております。

そこで質問ですが、フォルダ指定ダイアログを表示し、ダイアログで指定したフォルダ（中はxls,xlsx,xltmなど）をテーブル上にインポートするようなVBAはありますでしょうか？

まとめます。

・フォルダを選択するダイアログを表示したい
・一つのフォルダの中に、幾つものエクセルファイルが存在する
・ファイル名などはバラバラです
・シート単位でインポートしたいです
・インポートするシートを選択できるようにしたいです
・テーブルのカラムは決まっています

以上です。
どうか皆様のアドバイスよろしくお願い致します。

回答No.1

bin-chan

「インポート対象シートを選択する」があるので、大きく２つに分けて考える。
６項目書かれているので、１～３まででブック別シート名一覧を作る。
対象にマークする工程を経て、４～６を実行。
前半は「フォルダ内のファイル名一覧作成」を、
後半は「指定したシートのインポート」のEXCELサンプルを探して下さい。

前半のファイル名一覧を、テーブルにすれば良いでしょう。