Excel VBA質問箱 IV

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

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


10123 / 76734 ←次へ | 前へ→

【72163】Re:Windowsの検索結果をシートに出力したい
回答  ちび坊主  - 12/6/12(火) 17:15 -

引用なし
パスワード
   >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

2 hits

【72161】Windowsの検索結果をシートに出力したい 重ねる 12/6/11(月) 22:32 質問
【72162】Re:Windowsの検索結果をシートに出力したい Yuki 12/6/12(火) 8:41 発言
【72164】Re:Windowsの検索結果をシートに出力したい 重ねる 12/6/13(水) 0:43 回答
【72166】Re:Windowsの検索結果をシートに出力したい UO3 12/6/13(水) 6:45 発言
【72174】Re:Windowsの検索結果をシートに出力したい 重ねる 12/6/13(水) 20:40 発言
【72163】Re:Windowsの検索結果をシートに出力したい ちび坊主 12/6/12(火) 17:15 回答
【72165】Re:Windowsの検索結果をシートに出力したい 重ねる 12/6/13(水) 0:46 回答
【72167】Re:Windowsの検索結果をシートに出力したい ドカ 12/6/13(水) 9:02 回答
【72173】先の回答はXPでは出来ないようです ドカ 12/6/13(水) 15:14 発言
【72175】Re:先の回答はXPでは出来ないようです 重ねる 12/6/13(水) 20:42 発言
【72176】解決しました。ありがとうございました 重ねる 12/6/13(水) 20:44 お礼

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