| |
かみちゃんさんへ
お礼が遅くなりました。お教え頂いた、アドレスを参考に、色々調べてコードを作成してみましたが、新規にユーザーフォームを作成し、下記のコードを組み込むと、動くには動くんですが、いまいちです。できれば改善個所をお教え出来ないでしょうか?
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 10/1/24(日) 20:49 -
