Excel VBA質問箱 IV

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

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


4213 / 13644 ツリー ←次へ | 前へ→

【57848】異なったフォルダ内のファイルを開くには NaB 08/9/17(水) 16:46 質問[未読]
【57849】Re:異なったフォルダ内のファイルを開くには かみちゃん 08/9/17(水) 16:51 発言[未読]
【57851】Re:異なったフォルダ内のファイルを開くには NaB 08/9/17(水) 17:10 発言[未読]
【57853】Re:異なったフォルダ内のファイルを開くには りった 08/9/17(水) 17:32 発言[未読]
【57854】Re:異なったフォルダ内のファイルを開くには NaB 08/9/17(水) 17:52 発言[未読]
【57855】Re:異なったフォルダ内のファイルを開くには かみちゃん 08/9/17(水) 17:59 発言[未読]

【57848】異なったフォルダ内のファイルを開くには
質問  NaB  - 08/9/17(水) 16:46 -

引用なし
パスワード
   2008というフォルダの中に

200801
200802
200803
200804
といったフォルダの中に
それぞれの月ごとにフォルダを作成し

各フォルダごとに
200801
結果20080110.xls
結果20080117.xls
結果20080124.xls
結果20080126.xls
結果20080131.xls

200802
結果20080209.xls
結果20080211.xls
結果20080222.xls
結果20080225.xls
結果20080228.xls

このように
フォルダ毎に日付の異なったファイルがあるのですが
各フォルダの一番新しいファイルだけを選択しを開くことは可能なのでしょうか

【57849】Re:異なったフォルダ内のファイルを開く...
発言  かみちゃん  - 08/9/17(水) 16:51 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>各フォルダの一番新しいファイルだけを選択

一番新しいとは、何をもって判断するのですか?

ファイル名で判断?、作成日時、更新日時、アクセス日時のどれですか?
あと、一番新しいものが複数あれば、どうするのですか?

【57851】Re:異なったフォルダ内のファイルを開く...
発言  NaB  - 08/9/17(水) 17:10 -

引用なし
パスワード
   かみちゃん さんお世話になります
>一番新しいとは、何をもって判断するのですか?
ファイル名は必ず結果YYYYMMDD.xlsとなっていますので
このファイル名の日付で判断しようと思います。
>あと、一番新しいものが複数あれば、どうするのですか?
フィル名の重複や同日のファイル名は一切使用しないというルールにしております

【57853】Re:異なったフォルダ内のファイルを開く...
発言  りった  - 08/9/17(水) 17:32 -

引用なし
パスワード
   Dir関数でファイル名一覧を作業の新規ブックに抜き出しソートすれば出来ると思います。

もっと良い方法があるかもしれませんが...
詳細な説明が必要であれば言って下さい。

【57854】Re:異なったフォルダ内のファイルを開く...
発言  NaB  - 08/9/17(水) 17:52 -

引用なし
パスワード
   りったさんすみません
説明をお願いできますでしょうか

【57855】Re:異なったフォルダ内のファイルを開く...
発言  かみちゃん  - 08/9/17(水) 17:59 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>説明をお願いできますでしょうか

りったさんは、十分なヒントを出されたと思います。
過去ログやWebで「VBA△Dir関数△ファイル一覧」(△は半角スペース)などで
検索されてはいかがでしょうか?

たとえば、以下のようなURLなどは参考になりませんか?
http://www.officetanaka.net/excel/vba/file/file07.htm

ファイル一覧が取得できれば、ファイル名の降順ソートは、わかりますよね?
手作業でできますし、VBAでしたいなら、その手作業を「マクロの記録」で
記録します。

あとは、少しの修正で、大体したいことはできると思います。

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