VBAでドラッグ・アンド・ドロップ

解決済

質問者：noname#27115
質問日時：2005/07/04 22:30
回答数：3件

エクスプローラからファイルを選択して、ワードもしくはエクセルにD&Dしファイル名を取得したいと思います。

VBだとOleDragDropでいけるようですが、VBAにはこのイベントがありません。

ということは、無理ってことなのでしょう赤？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： Wendy02
回答日時：2005/07/05 16:27

こんにちは。

Excelしかやったことがありませんが、エクスプローラを開いて、ドラッグ&ドロップすれば、ふつう、そのままでいけるはずですが？

それにチェック機能をつけるのでしたら、Office では、ユーザーフォームの[ツール]メニューの、[その他のコントロール]で、Microsoft Listview Control (SP4) があるかと思います。そのListview Control に　以下のように、OleDragDrop イベントをつければよいと思います。

以下のコードでは、Explorer は、自分で閉じてください。

Excelの場合。
サンプルコード

'<UserFormモジュール以外>
Sub uformShow()
Dim myPath As String, myID As Double
myPath = ThisWorkbook.Path
myID = Shell("Explorer.exe /e, /root," & myPath, vbNormalFocus)
If myID = 0 Then Exit Sub
UserForm1.Show 0
End Sub

'<ユーザーフォームモジュール>
Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, _
　　　　　　　　　　　　　　　　　Effect As Long, Button As Integer, _
　　　　　　　　　　　　　　　　　Shift As Integer, x As Single, y As Single)

Dim i As Long
With Me
　　AppActivate Me.Caption
　　.ListView1.ListItems.Clear
　　If Data.Files.Count < 1 Then Exit Sub
　　For i = 1 To Data.Files.Count
　　 If InStrRev(Data.Files(i), "xls") > 0 Then
　　　　Workbooks.Open (Data.Files(i))
　　 Else
　　　　MsgBox "Excelの標準ファイルではありません。", vbCritical
　　 End If
　　Next i
End With
End Sub

Private Sub UserForm_Activate()
　　With Me.ListView1
　　　　.OLEDragMode = 1
　　　　.OLEDropMode = 1
　　　　.View = 2
　　End With
End Sub

- 4
- 件

通報する

この回答へのお礼

ListViewにOleのイベントがあったんですね。

こっちらでも確認できました。

どうもありがとうございました。

また、よろしくお願いします。

通報する

お礼日時：2005/07/05 18:41

No.2

回答者： piyo2000
回答日時：2005/07/05 02:42

>VBだとOleDragDropでいけるようですが

FormにVBのコントロールを貼り付ける、という手がありますね。
VB6のPictureBoxあたりでUserControlを作って、OleDragDropイベントを継承していれば実現できますが、ExcelやWord単体だと難しいかもしれませんね。

ちなみにOleDragDropを持っているDataGridをFormに貼り付けて、DragModeをManualにすれば取得は可能でした。