Excel VBA質問箱 IV

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

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


21061 / 76738 ←次へ | 前へ→

【61083】Re:エクスプローラで選択されているファイル名を取得したい
回答  Abyss  - 09/4/8(水) 16:30 -

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

0 hits

【61060】エクスプローラで選択されているファイル名を取得したい ヨシナガ 09/4/7(火) 14:19 質問
【61067】Re:エクスプローラで選択されているファイ... Abyss 09/4/7(火) 22:41 発言
【61074】Re:エクスプローラで選択されているファイ... ichinose 09/4/8(水) 7:06 発言
【61081】Re:エクスプローラで選択されているファイ... ヨシナガ 09/4/8(水) 16:17 回答
【61083】Re:エクスプローラで選択されているファイ... Abyss 09/4/8(水) 16:30 回答
【61092】Re:エクスプローラで選択されているファイ... ヨシナガ 09/4/9(木) 9:59 お礼
【61093】Re:エクスプローラで選択されているファイ... ichinose 09/4/9(木) 10:11 発言
【61099】Re:エクスプローラで選択されているファイ... Abyss 09/4/9(木) 13:05 回答
【61139】Re:エクスプローラで選択されているファイ... ヨシナガ 09/4/10(金) 22:48 お礼
【61141】Re:エクスプローラで選択されているファイ... Abyss 09/4/10(金) 23:21 発言

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