将文件拖放到用户窗体以获取文件名和路径

桑特容易额

创建一个VBA用户窗体，用户可以在其中从桌面或窗体上的浏览器窗口拖放文件，VBA将加载文件名和路径。我不确定这是否可能，但如果它是可能的，或者如果有人以前做过，我会很感激的。

大灰狼1976

你网上找到的这个东西，下面已经给出了解决方案，需要利用treeview，我整理了一个附件。
不使用treeview直接拖动到窗体的我没有找到方法。

赵桢0611

厉害，我重新画了个TreeView1，可以正常使用

chenjx80

文件拖拽功能：DragAcceptFiles，DragQueryFile 和 DragFinish。

micch

treeview实现很容易，就是wps不知道好不好用

zpy2

Private Sub Form_Load()
    Me.OLEDropMode = 1
End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim j As Long
    If Data.GetFormat(vbCFFiles) = True Then
        If Not (GetAttr(Data.Files.Item(1)) And vbDirectory) Then
            ' To open only one file
            ' OpenFile(Data.Files.Item(1))
            
            
            ' To open multi files
            For j = 1 To Data.Files.Count
                ' OpenFile(Data.Files.Item(j))
                MsgBox Data.Files.Item(j)
            Next
        End If
    End If

End Sub

Private Sub Form_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
    If Data.GetFormat(vbCFFiles) = True Then
        If (GetAttr(Data.Files.Item(1)) And vbDirectory) Then ' don't accept folders
            Effect = vbDropEffectNone
        Else
            Effect = vbDropEffectCopy
        End If
    End If
End Sub

https://www.vbforums.com/showthread.php?722153-Allowing-a-Visual-Basic-Application-to-Accept-Drag-and-Drop-Files

闻启学

chenjx80 发表于 2024-11-19 20:00
文件拖拽功能：DragAcceptFiles，DragQueryFile 和 DragFinish。

能否分享一下

闻启学

zpy2 发表于 2024-11-20 19:45
Private Sub Form_Load()
    Me.OLEDropMode = 1
End Sub

亲 上面代码应该是VB吧