Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4609 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【55646】リストボックスに複数のファイル形式を抽出 aki-33 08/5/14(水) 15:45 質問[未読]
【55649】Re:リストボックスに複数のファイル形式を... kanabun 08/5/14(水) 15:59 発言[未読]
【55650】Re:リストボックスに複数のファイル形式を... aki-33 08/5/14(水) 16:17 質問[未読]
【55655】Re:リストボックスに複数のファイル形式を... kanabun 08/5/14(水) 16:54 回答[未読]
【55657】Re:リストボックスに複数のファイル形式を... kanabun 08/5/14(水) 17:07 発言[未読]
【55660】Re:リストボックスに複数のファイル形式を... aki-33 08/5/14(水) 17:45 質問[未読]
【55661】Re:リストボックスに複数のファイル形式を... kanabun 08/5/14(水) 17:50 発言[未読]
【55662】Re:リストボックスに複数のファイル形式を... aki-33 08/5/14(水) 17:57 発言[未読]
【55663】Re:リストボックスに複数のファイル形式を... kanabun 08/5/14(水) 18:03 回答[未読]
【55665】Re:リストボックスに複数のファイル形式を... aki-33 08/5/14(水) 19:36 お礼[未読]
【55646】リストボックスに複数のファイル形式を抽...
質問  aki-33  - 08/5/14(水) 15:45 -
引用なし
パスワード
   リストボックスに"myDir"に含まれる複数のファイル形式の
画像を抽出したいのですがどうしてもうまく出来ません。
どなたか教えて下さい。

　 myDir = TextBox1.Text & "\"
　　myFName = Dir(myDir & "*.jpg") ←他bmp,tif等
　　Do While myFName <> ""
　　　　ListBox1.AddItem myFName
　　　　myFName = Dir()
　　Loop
If ListBox1.ListCount = 0 Then
Else
　　ListBox1.ListIndex = 0
End If
【55649】Re:リストボックスに複数のファイル形式...
発言  kanabun  - 08/5/14(水) 15:59 -
引用なし
パスワード
   ▼aki-33 さん：
>複数のファイル形式の
>画像を抽出したいのですが

>　　myFName = Dir(myDir & "*.jpg") ←他bmp,tif等

Excelのバージョンが 2003 までなら、
Application.FileSearch　オブジェクトの
　 .FileName プロパティに "*.jpg;*.bmp;*.tif;*.gif"
などと、複数拡張子を並べて検索することができます。
【55650】Re:リストボックスに複数のファイル形式...
質問  aki-33  - 08/5/14(水) 16:17 -
引用なし
パスワード
   ▼kanabun さん：
>Excelのバージョンが 2003 までなら、
>Application.FileSearch　オブジェクトの
>　 .FileName プロパティに "*.jpg;*.bmp;*.tif;*.gif"
>などと、複数拡張子を並べて検索することができます。

下記のコードを記述し試行しましたが何も表示されませんでした。
どこが間違っているのでしょうか?
　　myDir = TextBox1.Text & "\"
　　myFName = Dir(myDir & "*.jpg;*.bmp;*.tif;*.gif")
　　Do While myFName <> ""
　　　　ListBox1.AddItem myFName
　　　　myFName = Dir()
　　Loop
If ListBox1.ListCount = 0 Then
Else
　　ListBox1.ListIndex = 0
End If
【55655】Re:リストボックスに複数のファイル形式...
回答  kanabun  - 08/5/14(水) 16:54 -
引用なし
パスワード
   ▼aki-33 さん：
>どこが間違っているのでしょうか?

Dir関数ではなく、
Application.FileSearch オブジェクトです。
ヘルプで調べてみてください。
【55657】Re:リストボックスに複数のファイル形式...
発言  kanabun  - 08/5/14(水) 17:07 -
引用なし
パスワード
   ▼aki-33 さん：
いま 2007 なので FileSearchオブジェクトが利用できないので、
うろ覚えですが、こんな感じです

With Application.FileSearch
　　　.NewSearch
　　　.LookIn = TextBox1.Text
　　　'.SearchSubFolders = True
　　　.Filename = "*.jpg;*.bmp;*.tif;*.gif"
　　　n = .Execute()
　　　For i = 1 To .FoundFiles.Count
　　　　 ListBox1.AddItem Dir(.FoundFiles(i))
　　　Next
End With
【55660】Re:リストボックスに複数のファイル形式...
質問  aki-33  - 08/5/14(水) 17:45 -
引用なし
パスワード
   ▼kanabun さん：
>いま 2007 なので FileSearchオブジェクトが利用できないので、
>うろ覚えですが、こんな感じです
>
>With Application.FileSearch
>　　　.NewSearch
>　　　.LookIn = TextBox1.Text
>　　　'.SearchSubFolders = True
>　　　.Filename = "*.jpg;*.bmp;*.tif;*.gif"
>　　　n = .Execute() '←ここでエラーが発生
>　　　For i = 1 To .FoundFiles.Count
>　　　　 ListBox1.AddItem Dir(.FoundFiles(i))
>　　　Next
>End With
上記部分でエラーが発生するのですが?
【55661】Re:リストボックスに複数のファイル形式...
発言  kanabun  - 08/5/14(水) 17:50 -
引用なし
パスワード
   ▼aki-33 さん：
>>　　　n = .Execute() '←ここでエラーが発生

>上記部分でエラーが発生するのですが?

何という エラーメッセージでしたかね？
【55662】Re:リストボックスに複数のファイル形式...
発言  aki-33  - 08/5/14(水) 17:57 -
引用なし
パスワード
   ▼kanabun さん：
>>>　　　n = .Execute() '←ここでエラーが発生
>
>>上記部分でエラーが発生するのですが?
>
>何という エラーメッセージでしたかね？
"変数が定義されておりません"というメッセージでした。
【55663】Re:リストボックスに複数のファイル形式...
回答  kanabun  - 08/5/14(水) 18:03 -
引用なし
パスワード
   ▼aki-33 さん：
>>何という エラーメッセージでしたかね？
>"変数が定義されておりません"というメッセージでした。

では
Dim i as long, n as long
のように、プロシージャの先頭で宣言してください。
【55665】Re:リストボックスに複数のファイル形式...
お礼  aki-33  - 08/5/14(水) 19:36 -
引用なし
パスワード
   ▼kanabun さん：
>>>何という エラーメッセージでしたかね？
>>"変数が定義されておりません"というメッセージでした。
>
>では
>Dim i as long, n as long
>のように、プロシージャの先頭で宣言してください。
kanabun さんありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4609 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free