| |
IchinoseさんのコードはObject Module
つまりThisWorkbookモジュールに書く必要がありあす。
しかし、IE7以上がインストールされたなら、
動作しないでしょう。
大分省略されていますが、以下のコードで
可能だと思います。
（標準モジュール）
Sub CatchFolderItems()
Dim oFolderItems As Object
Dim e As Object
For Each e In CreateObject("Shell.Application").Windows
If TypeName(e) = "IWebBrowser2" Then
If UCase(e.FullName) Like "*EXPLORER.EXE" Then
Exit For
End If
End If
Next
If e Is Nothing Then
MsgBox "FolderViewが立ち上がっていない": Exit Sub
End If
Set oFolderItems = e.Document.SelectedItems
If oFolderItems.Count = 0 Then
MsgBox "選択されている項目がない": Exit Sub
End If
For Each e In oFolderItems
MsgBox e.Path
Next
End Sub
|
|
Abyss
- 09/4/8(水) 16:30 -
