Excel VBAにおいてDrag&DropされたファイルのPathを取得しようとしています。
UserFormにListView1を作成し、AllowDrop=trueに設定したのち
VBA
1Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) 2 Dim i As Long 3 Dim strFilesPath() As String 4 If Data.Files.Count < 1 Then Exit Sub 5 For i = 1 To Data.Files.Count 6 Cells(i, 1) = Data.Files(i) 7 Next 8End Sub
とする方法で、一応は所望の動作をしました。
が、可能であればUserFormを使用せずに(sheet上のControlで)実装したいと考えています。
UserFormを使いたくない理由は、窓を増やしたくないためです。
開発→挿入→ActiveX Control→Microsoft ListView Control, version6.0
は試してみましたが、AllowDropが設定できないようでした。
実現できる方法はございますでしょうか。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/07/08 04:23