Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17840 / 76732

←次へ　｜　前へ→


	【64340】Re:Excel2007でFileSearchエラー

aki - 10/1/31(日) 9:13 -


	引用なし

	パスワード

かみちゃんさんへ
お礼が遅くなりました。お教え頂いた、アドレスを参考に、色々調べてコードを作成してみましたが、新規にユーザーフォームを作成し、下記のコードを組み込むと、動くには動くんですが、いまいちです。できれば改善個所をお教え出来ないでしょうか?

Option Explicit
Private g_strEXT As String

Private Sub TextBox1_Change()
　　Dim objFSO As FileSystemObject
　　Dim GYO As Long, cntFound As Long
　　Dim ListDeTe As String

　　Set objFSO = New FileSystemObject
　　g_strEXT = UCase("jpg")　'←一つの拡張子しか指定出来ない。
　　Call Sample_FileSearch_SUB(objFSO, objFSO.GetFolder(Trim(TextBox1.Text)), GYO, cntFound)
　　Set objFSO = Nothing
'↓一度シートにロードしてからListBoxに張付けていますが、直接
'ListBoxにロードできないものか?
Range("Y:Y").Select
　 Selection.Cells.SpecialCells(xlConstants).Select
　 Worksheets("sheet1").Range("Z1").Value = ActiveWindow.RangeSelection.Address
　 ListDeTe = Worksheets("sheet1").Range("Z1").Value
　　With ListBox1
　　　　.Clear
　　　　.RowSource = ListDeTe
　　End With
End Sub

Private Sub Sample_FileSearch_SUB(objFSO As FileSystemObject, _
　　　　　　　　　　　　　　　　　 ByVal objFolder As Folder, _
　　　　　　　　　　　　　　　　　 GYO As Long, cntFound As Long)
　　　Dim objFile As File
　　For Each objFile In objFolder.Files
　　　　With objFile
　　　　　 If ((UCase(objFSO.GetExtensionName(.Path)) = g_strEXT)) Then
　　　　　　　 GYO = GYO + 1
　　　　　　　 Cells(GYO, 25).Value = .Name
　　　　　 cntFound = cntFound + 1
　　　　　　Else
　　　　　　End If
　　　　End With
　　Next objFile
End Sub

▼かみちゃんさん：
>こんにちは。かみちゃん　です。
>
>>Excel2003で使用していたマクロなのですが、Excel2007では
>>実行時エラー'445'オブジェクトはこの動作をサポートしていません。
>>というエラーメッセージが表示されます。
>
>Excel2007からは
>Application.FileSearch
>は、正式にサポートされなくなりました。
>ｈｔｔｐ://support.microsoft.com/kb/920229/ja
>ｈｔｔｐ://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_130.html

1 hits

▼

【64194】Excel2007でFileSearchエラー aki 10/1/24(日) 20:39