|
>Windows検索の検索結果画面をExcelのシートに貼り付けたい
検索結果のWindowを画像として、貼り付けたいと読めますが、
>Windowsの検索結果をシートに出力したい
これは、ファイル名などをセルに書き込みたいと読めます。
前者なら、検索結果のWindowにAlt+Snapshotのキーを送り込み、クリップボードに
画像をコピーし、シートにペーストすることになります。
多分APIなど使用することになり、面倒です。
後者なら、私なら、FileSyatemObjectなどを使用して、ファイルを検索し、セルに
書き込みます。
検索結果のWindowからの取得もShell.Applicationを使えば可能です。
Shellの例
Sub test()
Dim Shl As Object
Dim Win As Object
Dim Fil As Object
Dim i As Long
Set Shl = CreateObject("Shell.Application")
For Each Win In Shl.Windows
If Win.LocationName = "検索結果" Then
For Each Fil In Win.Document.Folder.Items
i = i + 1
ActiveSheet.Range("A" & i).Value = Fil.Name
ActiveSheet.Range("B" & i).Value = Fil.Path
Next
End If
Next
Set Shl = Nothing
End Sub
|
|