Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11572 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼


	【15352】最新日付のファイルを開く

さくら - 04/6/22(火) 11:47 -


	引用なし

	パスワード

はじめまして、さくらです。

エクセルVBAから、最新の更新日付のファイルを開くプログラムを組みたいのですが、可能ですか？

エクセルVBAからCSVファイルを読み込んでデータを加工したいのですが、
そのCSVファイル名が固定でないため困ってます。

よろしくお願い致します。


	【15359】Re:最新日付のファイルを開く

IROC - 04/6/22(火) 13:34 -


	引用なし

	パスワード

フォルダ内のCSVファイルをDir関数で取得し、
FileDateTime 関数で更新日時を取得して、
比較するとできると思います。


	【15363】Re:最新日付のファイルを開く

さくら - 04/6/22(火) 14:59 -


	引用なし

	パスワード

▼IROC さん：
>フォルダ内のCSVファイルをDir関数で取得し、
>FileDateTime 関数で更新日時を取得して、
>比較するとできると思います。
早速のご回答ありがとうございます。

例えば、
　1.fname = dir("*.CSV") 'ファイル名取得
　2.Ftime = FileDateTime(fname)'ファイルの更新日取得
　
　3.ファイルの情報を別に取っておく。
　4.1.、2.を繰り返す
　5.前の情報と比べる。

6.fnameが""になるまで繰り返す。

などと指定して、CSVファイルがなくなるまで比較する感じですか？
今これしか思いつかないのですが、「更新日付が最新のcsvファイル」
といった風に1回で、もしくはloopをしないで目的のファイルが取得できる方法はありますか？

同一ディレクトリに大量のcsvファイルがあるので、この記述ですと遅くなるのではないかと考えてます。


	【15369】Re:最新日付のファイルを開く

IROC - 04/6/22(火) 16:06 -


	引用なし

	パスワード

>などと指定して、CSVファイルがなくなるまで比較する感じですか？

わたしの構想も同じです。

>今これしか思いつかないのですが、「更新日付が最新のcsvファイル」
>といった風に1回で、
>もしくはloopをしないで目的のファイルが取得できる方法はありますか？

あいにく知らないです。

>同一ディレクトリに大量のcsvファイルがあるので、
>この記述ですと遅くなるのではないかと考えてます。

ひとまず、試してみては如何でしょうか？
>3.ファイルの情報を別に取っておく。
を変数に保持して、比較していくようにすれば、
それほど時間がかかるようには思えないのですが・・・


	【15370】Re:最新日付のファイルを開く

さくら - 04/6/22(火) 16:50 -


	引用なし

	パスワード

そうですね、分かりました了解です。

どうもありがとうございました。m(__)m

また何かあったら、相談にのってください。

よろしくお願いします。


	【15380】Re:最新日付のファイルを開く

kein - 04/6/22(火) 22:13 -


	引用なし

	パスワード

ヘルプで FileSearch オブジェクトと、その Executeメソッドを調べてみて下さい。
ただこのコードはバグが報告されていて、確実にうまくいく保証はありませんが。


	【15389】Re:最新日付のファイルを開く

Jaka - 04/6/23(水) 10:30 -


	引用なし

	パスワード

ここにも載ってます。
[#10478]


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11572 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free