Excel VBA質問箱 IV

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

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


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

【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 さんありがとうございました。

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