如何使用Treeview将文件从Outlook拖放到excel Userform？

Question

我正在尝试制作一个用户窗体，该用户窗体在用户窗体中包括一个拖放窗口，该窗口不仅可以从Outlook中提取，而且还可以提取多个文件。

我已经能够添加Treeview，并且可以一次从桌面拖放一个文件。

我在初始化子项中输入

TreeView2.OLEDropMode = ccOLEDropManual

我在treeview子目录中输入

Private Sub TreeView2_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)

StrPath = Data.Files(1)

If Me.FilePath1.Value = "" Then
Me.FilePath1.Value = StrPath
Else
If Me.FilePath2.Value = "" Then
Me.FilePath2.Value = StrPath
Else
If Me.FilePath3.Value = "" Then
Me.FilePath3.Value = StrPath
Else
If Me.FilePath4.Value = "" Then
Me.FilePath4.Value = StrPath

End If
End If
End If
End If

End Sub

enter image description here

但是，我希望能够将多个文件拖到Treeview窗口中，以使用不同的文件路径填充多个文本框。我还希望能够从Outlook中拖放。该代码将需要查看路径是否已经存在并填写空白文本单元格，或者文件路径是否相同。然后，如果它们放入许多文件，则接下来我将继续错误恢复。感谢您提供的任何帮助。