Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1752 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【72161】Windowsの検索結果をシートに出力したい
質問  重ねる  - 12/6/11(月) 22:32 -
引用なし
パスワード
   WindowsXPを使用しています

Windows検索の検索結果画面をExcelのシートに貼り付けたいのですが、どういった方法があるのか教えて頂けないでしょうか
【72162】Re:Windowsの検索結果をシートに出力した...
発言  Yuki  - 12/6/12(火) 8:41 -
引用なし
パスワード
   ▼重ねる さん：
こんにちは。

>Windows検索の検索結果画面をExcelのシートに貼り付けたいのですが、どういった方法があるのか教えて頂けないでしょうか

Windows検索の検索結果画面ってどんな画面なんですか？
【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
【72164】Re:Windowsの検索結果をシートに出力した...
回答  重ねる  - 12/6/13(水) 0:43 -
引用なし
パスワード
   説明不足だったようで申し訳ないです

スタートメニューにある検索ボタンを押して、検索条件を設定後に検索を実行した結果が表示されている画面（アドレスバーには「検索結果」と表示されている状態）の事です。
【72165】Re:Windowsの検索結果をシートに出力した...
回答  重ねる  - 12/6/13(水) 0:46 -
引用なし
パスワード
   ご回答ありがとうございます

判断しづらい質問文で申し訳ございません

後者の意味での質問でした


この後時間がなく、今すぐ試すことが出来ないのですが、教えて頂いたFileSystemObjectとShell両方を試してみようかと思います
【72166】Re:Windowsの検索結果をシートに出力した...
発言  UO3  - 12/6/13(水) 6:45 -
引用なし
パスワード
   ▼重ねる さん：

おはようございます。
門外漢ですが・・・

私の場合は、検索結果ウィンドウが表示されたら、それがアクティブウィンドウの状態で
・Alt + PtrSc/SysRqキー
・エクセルをアクティブにして貼り付け開始セルを選択
・Ctrl + v

こんなことをしてイメージで取り込んでします。
ＶＢＡ処理を行うとすれば上記の操作をコードで書くということになりますね。
ちび坊主さんの回答も、そのようなことだと思います。

検索の内容そのものを文字列で取り込むことはできないのではないでしょうか？
【72167】Re:Windowsの検索結果をシートに出力した...
回答  ドカ  - 12/6/13(水) 9:02 -
引用なし
パスワード
   ▼重ねる さん：


検索結果のファイルを全て選択し（ctrl+A）
Shift+右クリック
パスとしてコピーというメニューがありますので実行して、
ｴｸｾﾙに貼り付けて下さい。
【72173】先の回答はXPでは出来ないようです
発言  ドカ  - 12/6/13(水) 15:14 -
引用なし
パスワード
   ▼重ねる さん：

先ほどの回答の方法は、XPでは出来ないようです。
失礼しました。

Vista以降が対象のようです。
【72174】Re:Windowsの検索結果をシートに出力した...
発言  重ねる  - 12/6/13(水) 20:40 -
引用なし
パスワード
   ご回答ありがとうございます

画像としてではなく、文字列として取り込むという意味でした
分かりづらい質問文で申し訳ございません
【72175】Re:先の回答はXPでは出来ないようです
発言  重ねる  - 12/6/13(水) 20:42 -
引用なし
パスワード
   ご回答ありがとうございます

Vista以降では出来るのですね

XPを使用している為、教えて頂いた方法は使用できませんが、Vista以降で同じ状況になりましたらやってみようかと思います
【72176】解決しました。ありがとうございました
お礼  重ねる  - 12/6/13(水) 20:44 -
引用なし
パスワード
   ちび坊主さんに教えて頂いた方法で無事に結果を取得することが出来ました

分かりにくい質問文を投稿してしまったりとご迷惑をおかけしましたが、それでも回答していただきありがとうございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1752 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free