Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1401 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【74681】FileSearchについて ken 13/8/29(木) 13:06 質問[未読]
【74682】Re:FileSearchについて ウッシ 13/8/29(木) 13:24 発言[未読]
【74683】Re:FileSearchについて ウッシ 13/8/29(木) 14:18 回答[未読]
【74687】Re:FileSearchについて ken 13/8/29(木) 20:22 お礼[未読]
【74693】Re:FileSearchについて kanabun 13/8/30(金) 21:17 発言[未読]
【74703】Re:FileSearchについて kanabun 13/8/31(土) 17:49 発言[未読]
【74681】FileSearchについて
質問  ken  - 13/8/29(木) 13:06 -
引用なし
パスワード
   いつも参考にさせて貰っています。
どなたか教えて下さい。
会社のXPからWindow7に替るのに伴い
Excelも2003から2010のバージョンに替ります。
2003に作成したマクロにApplication.FileSearchがありますが
2010ではサポートされていないというメッセージが出てしまいます。
替りの命令文がありましたらお教えください。
また、違いなどが分かりましたらお教えください。
宜しくお願い致します。
【74682】Re:FileSearchについて
発言  ウッシ  - 13/8/29(木) 13:24 -
引用なし
パスワード
   こんにちは

FileSystemObjectとか。

FileSearchでWEB検索すると参考サイトが沢山見つかります。

現在、Application.FileSearchでどんな処理をしているかによりますけど
そのまま使えるコードも見つかるかも知れません。


▼ken さん：
>いつも参考にさせて貰っています。
>どなたか教えて下さい。
>会社のXPからWindow7に替るのに伴い
>Excelも2003から2010のバージョンに替ります。
>2003に作成したマクロにApplication.FileSearchがありますが
>2010ではサポートされていないというメッセージが出てしまいます。
>替りの命令文がありましたらお教えください。
>また、違いなどが分かりましたらお教えください。
>宜しくお願い致します。
【74683】Re:FileSearchについて
回答  ウッシ  - 13/8/29(木) 14:18 -
引用なし
パスワード
   似たような質問有りました。

//park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+201308/13080032.txt
【74687】Re:FileSearchについて
お礼  ken  - 13/8/29(木) 20:22 -
引用なし
パスワード
   ウッシさん早々の回答　誠に有難う御座います。
Dir関数を使ってやってみようかなと思います。
出来たらまた報告します。

▼ウッシ さん：
>似たような質問有りました。
>
>//park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+201308/13080032.txt
【74693】Re:FileSearchについて
発言  kanabun  - 13/8/30(金) 21:17 -
引用なし
パスワード
   ▼ken さん：

>2003に作成したマクロにApplication.FileSearchがありますが
>2010ではサポートされていないというメッセージが出てしまいます。
>替りの命令文がありましたらお教えください。

ウッシさんからコメントがあるように、
要は

> 現在、Application.FileSearchでどんな処理をしているかによります

なのです。
別スレリンクにあるように、あるフォルダを指定してそのフォルダ内で
指定の種類の（たとえば *.jpg）ファイルをひとつだけ取得できれば
よいというのなら、Dir関数 がいちばん手っ取り早いです。
　fname = Dir(Path & "\*.jpg")

ただ、「サブフォルダも含め」すべての*.jpgファイルのリストを得よう
ということになると、Dir関数でもFsoでも APIのFindFile系関数でも
「再帰処理」の構文を書かなければならなくなり、勢い、初心者には
メンテの難しい構文を駆使しなければならなくなります。
「再帰なしで」サブフォルダも含めたファイルのリストを得るには
Dir関数でなく DOSのDirコマンドをVBAから使うといいです。

現在FileSearchを使って どのような処理をしていますか？
【74703】Re:FileSearchについて
発言  kanabun  - 13/8/31(土) 17:49 -
引用なし
パスワード
   FileSearch代替として
> DOSのDirコマンドをVBAから使う

これは 「Dirコマンド FileSearch」 でググってみてください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1401 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free