【Access】CSVファイルなどの日付抽出のVBAコードと方法

Excelのファイルを利用すときとかありませんか??

私はCSVファイルから商品データ抽出して参照しているんですが、CSVの名前が毎日変わるんですよ。名前が変わるというか名前の後ろに当日の日付が入るんです。

説明が悪いので、どういう意味?って思うかもしれませんが、こういう意味です。↓

『商品リスト_2017年04月10日.csv』っていう具合です。

Accessからボタンクリックひとつでデータをインポートするには、日付が邪魔なんです。

そこで、日付を合わせてインポートするという意味で作ったんですが、最後にインポートした日付を表示するのにも使えました。

データをインポートした最終日をそこから抽出し、テキストボックスに表示しました。

そのコードがこちらです。

最後のMe.日付=がテキストボックスに表示する部分になります。

どんな感じで見積書に使用したかというと、こんな感じです。

赤く囲っているところが抽出した日付を書き込んだところです。

ただファイルの日付を取り出して表示しただけなんですが、こういう風に見えるとデータの最終更新日が見えて、親切かつちょっと多機能に見えるでしょ?

ただの自己満足なんですけどね。

こんなやり方もありだと思います。

最後までおよみいただきありがとうごあいました。

関連記事