【AccessVBA】ファルダごとインポート

質問

お世話になります
実行可能かわからない範囲でお聞きしています。
■概要
フォルダごとCSVをインポートする

■詳細
フォーム上でテキストボックス、参照ボタン、実行ボタン、を設置
参照ボタンでダイアログボックスを表示しファルダを選ぶ
選ぶとテキストボックスにあて先が記載され実行ボタンでファイル内にあるCSVファイルを一括してAccessテーブルにインポートさせたいのですが可能ですか？

■環境
Access2003
CSV　カンマ区切り　
CSVの数はまちまちです1個のときもあります
CSVの列等は全部統一されています

わかる方ご教授よろしくお願いします。

回答No.2

kosamon · ベストアンサー

すみません、少し質問の趣旨を読み違えてました。
ファイル指定でなくて、フォルダ指定ということであれば・・・

http://www.accessclub.jp/samplefile/samplefile_79.htm

こちらでパスを取得できるので、そのパスをDIR関数の引数に指定すればよろしいかと思います。
では。

回答No.1

kosamon

>参照ボタンでダイアログボックスを表示しファルダを選ぶ

これについてはこちらが参考になるでしょう。
http://www.accessclub.jp/samplefile/samplefile_211.htm

>選ぶとテキストボックスにあて先が
こちらについてはdir関数でCSVを検索して「見つかれば→処理」
のような感じになります。
そのフォルダに複数個のCSVが有る場合は「再帰処理」が必要です。
これだけだと身も蓋もないので、さわりだけ・・・。

Dim FileToOpen As Variant
FileToOpen = Application.GetOpenFilename("テキスト ファイル (*.csv), *.csv", Title:="読み込むファイルを指定せんかい！ゴルァア！")

で、ダイアログが開きます。
では。

補足

お返事ありがとうございます
これならファイル指定は不可ですね
おそらくエクスプローラー風のダイアログでの指定方法が正解だと思われます
参考URLも同様ですね

ありがとうございます参考にさせていただきます