VBA将文件拖放到用户窗体中以获取文件名和路径 [英] VBA drag and drop file to user form to get filename and path

问题描述

我想学习一个新的技巧，但我并不知道在VBA中有可能，但是我以为我会和这里的大师一起检查。

I'd like to learn a new trick, but I'm not 100% confident it is possible in VBA, but I thought I'd check with the gurus here.

我想做的是避开旧的getopenfilename或浏览器窗口（在我们的网络驱动器上设置起始目录真的很困难），我想创建一个VBA用户表单，其中用户可以从桌面或窗体上的浏览器窗口拖放文件，VBA将加载文件名和路径。再次，我不知道这是否可能，但如果是或者如果有人做完之前，我会感激指针。我知道如何设置用户表单，但是我没有任何真正的代码。如果有一些我可以提供的东西，让我知道。

What I'd like to do is eschew the good-old getopenfilename or browser window (it has been really difficult to get the starting directory set on our network drive) and I'd like to create a VBA user form where a user can drag and drop a file from the desktop or a browser window on the form and VBA will load the filename and path. Again, I'm not sure if this is possible, but if it is or if someone has done it before I'd appreciate pointers. I know how to set up a user form, but I don't have any real code outside of that. If there is something I can provide, let me know.

感谢您的时间和考虑！

推荐答案

我想出了一种实现这一点的方法。据我所知，只能使用treeview控件来完成。您可能需要右键单击工具箱才能查找并添加它。它将在附加控制下面或类似的东西。除了控制之外，您需要两件事。

I figured out a way to achieve this. As far as I can tell, it can only be done using a treeview control. You may have to right click your toolbox to find and add it. It will be there under "additional controls" or something like that. You'll need two things aside from the control.

在 UserForm_Initialze 子文件中，您将需要以下行代码启用拖放：'TreeView1.OLEDropMode = ccOLEDropManual'：

In the UserForm_Initialze sub you will need the following line of code to enable drag and drop: 'TreeView1.OLEDropMode = ccOLEDropManual':

UserForm_Initialize()
    TreeView1.OLEDropMode = ccOLEDropManual
End Sub

然后，您将需要Private Sub TreeView1_OLEDragDrop事件。我省略了所有的参数来节省空间。他们应该很容易找到。在那个sub只是声明一个字符串，也许 strPath 或类似的东西来保存文件名和路径并设置 strPath = Data.Files（1） ，将获取用户拖动到TreeView控件的文件的文件名和路径。这假设用户一次只拖动一个文件，但是据我所知，这应该是可以拖动多个文件的实例。

Then you will need the 'Private Sub TreeView1_OLEDragDrop' event. I've omitted all the parameters to save space. They should be easy enough to find. In that sub simply declare a string, maybe strPath or something like that to hold the file name and path and set strPath = Data.Files(1) and that will get the file name and path of a file that the user drags to the TreeView control. This assumes that the user only drags one file at a time, but as far as I can tell this should be something that can be done dragging multiple files if you experiment with it.

Private Sub TreeView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    StrPath = Data.Files(1)
End Sub

编辑：您还需要添加引用 Microsoft Windows Common Controls 6.0

You will also need to add a reference to Microsoft Windows Common Controls 6.0

我还添加了示例代码。

这篇关于VBA将文件拖放到用户窗体中以获取文件名和路径的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！