Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
710 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【78923】フォルダ内の画像抽出について vba勉強中 17/2/28(火) 11:04 質問[未読]
【78924】Re:フォルダ内の画像抽出について β 17/2/28(火) 11:37 発言[未読]
【78925】Re:フォルダ内の画像抽出について vba勉強中 17/2/28(火) 14:03 お礼[未読]
【78923】フォルダ内の画像抽出について
質問  vba勉強中  - 17/2/28(火) 11:04 -
引用なし
パスワード
   以前画像貼り付けについて質問させていただいたものです。
その節はβさん、ありがとうございました。

任意のフォルダの中の画像を取り出したいのですが、画像の名前が部分一致でも抽出できるようにしたいです。
いままでは完全一致のものを取り出していたのですがその時は、dir関数を使っていました。（それもここでの教えですが）
dir関数ではワイルドカードは使用できないとの話をどこかで見たので調べていたところ、filesystemobjectの方が使い勝手が良い、とこれまたどこかのサイトで見かけました。しかしながらFolderExistsメソッドでもワイルドカードの対応はしていないようでした。ので行き詰まり助けを求めている状態です。

現状functionマクロから一度画像の名前を全部取得してから、部分一致があればそれを検索する名前に変更して、また、完全一致の画像を探す。といった風になりそうです。

だいぶ回りくどい気がするのですが、知恵をお貸しいただければと思います。
相変わらずの知識不足、説明下手で申し訳ないのですがよろしくお願いいたします。
【78924】Re:フォルダ内の画像抽出について
発言  β  - 17/2/28(火) 11:37 -
引用なし
パスワード
   ▼vba勉強中 さん：

>dir関数ではワイルドカードは使用できないとの話をどこかで見た

そんなことはないですよ。

たとえば AAA-BBB.jpg というものをDIR関数に与えると、そのものずばりのファイル名指定になりますけど

*AAA-BBB.jpg とすると　なんとか　が AAA の頭についたものもピックアップしますし
*AAA*-BBB.jpg とすると　AAA の前後に何かがついているものもピックアップします。

BBB の部分も同様です。

AAA と BBB のいずれをワイルドカードにしたいのか、あるいは両方ワイルドカードにしたいのか
なんとかAAA なのか、AAAなんとか　なのか　なんとかAAAなんとか　なのか、そこは
そちらの要件次第で。

これをもとに頑張ってみませんか？
【78925】Re:フォルダ内の画像抽出について
お礼  vba勉強中  - 17/2/28(火) 14:03 -
引用なし
パスワード
   ▼β さん：
ありがとうございます！
dir関数でもワイルドカードの使用はできました！もっと試してから書き込むべきだったかもしれません…
なのですが、
fname = Dir(fpath & "*テスト*")
これで[〜テスト〜]については見つけてくれることはわかったのですが、"*テスト*"が変数なので、画像名を参照セルより確定させてから
fname=画像名
fname=Dir(fpath & "*fname*")
ではできない、と思っていましたがこれだとそのままfnameを含む画像を探すことになりますね


fname = Dir(fpath & "*" & fname & "*")
として解決できました！！
いつもありがとうございます！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
710 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free