Excel VBA質問箱 IV

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

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


11571 / 13645 ツリー ←次へ | 前へ→

【15352】最新日付のファイルを開く さくら 04/6/22(火) 11:47 質問[未読]
【15359】Re:最新日付のファイルを開く IROC 04/6/22(火) 13:34 回答[未読]
【15363】Re:最新日付のファイルを開く さくら 04/6/22(火) 14:59 質問[未読]
【15369】Re:最新日付のファイルを開く IROC 04/6/22(火) 16:06 回答[未読]
【15370】Re:最新日付のファイルを開く さくら 04/6/22(火) 16:50 お礼[未読]
【15380】Re:最新日付のファイルを開く kein 04/6/22(火) 22:13 発言[未読]
【15389】Re:最新日付のファイルを開く Jaka 04/6/23(水) 10:30 回答[未読]

【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]

11571 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free