批量移动文件到对应的文件夹中_Excel VBA和文件夹-1.7通过对话框灵活选定文件夹并打开对应文件...

Excel VBA和文件夹-1.7通过对话框灵活选定文件夹并打开对应文件

前景提要

之前我们学习过了如何通过VBA遍历我们指定的文件夹,通过此方法,我们可以很方便将某个文件夹中相关格式的文件全部打开并处理,节省了不少的时间,不过我们也说了,上面的方法只能打开我们指定的某个文件夹的方法,意思就是,我们写好的VBA代码,每次都只能打开指定的文件夹的文件,但是其他文件夹的就不定,如果不小心换了名字,或者命名的时候多了一个空格或者是标点的话,程序就没有办法来执行了,有没有什么好的办法,能够让自己根据实际的需要来选择我们想要的文件夹,然后系统自己执行后面的的操作呢?

思路

自然是可以的,我们一定都非常熟悉window的对话框吧,在你通过excel打开新的文件的时候,都会弹出一个对话框,让你选择你想要打开的文件,这样功能确实是非常不错,

cb3c7c4e2d51e4c78c1ad536c62e1ebd.png

如果我们在写脚本的时候,也利用这个功能,灵活的选择自己需要的文件夹,不就可以实现这样的效果了吗?

那么VBA能否实现这样的对话框功能呢?当然是可以的,对话框其实我们已经非常的熟悉了,今天带着大家一起来使用下VBA中的对话框。

上代码

这里我们不需要指定对应的文件夹的位置了,通过对话框的窗口选择我们想要打开的文件的位置,然后执行后面的汇总操作,因为这次主要介绍的是对话框的操作,所以打开文件等操作我们这里就忽略了,保持代码的简短,方便大家阅读,也利于大家获得知识点。

Sub test()With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True If .Show = -1 Then For x = 1 To .SelectedItems.Count Debug.Print .SelectedItems(x) Next x Else MsgBox "您未作出任何选择,程序结束!" Exit Sub End IfEnd WithEnd Sub

代码解析

With Application.FileDialog(msoFileDialogFilePicker)********End With

这一段代码的作用就是打开我们前面所说的对话框,我们来进行调试下,看看是不是这样的效果。

f99f6815200c9bde31a268ba91807812.png

这里我们可以看到我们已经成功的打开了文件选择的对话框,我们可以根据自己的文件所在位置,选择自己想要的文件,并不需要指定对应的文件所在的位置了,方便了很多。

If .Show = -1 Then ******* Else MsgBox "您未作出任何选择,程序结束!" Exit Sub End If

这一段判断就是判断我们是否作出了选择,既然对话框中有一个打开和一个取消的按钮,自然我们也需要做出对应的判断了,如果没有做出选择,我们还去执行后面的操作的话,程序可能会报错的,我们之前也说过了,这样的体验感非常的不好,如果你拿给其他的同事用的话,其他同事可能会质疑你的能力和水平,这样也会导致你的影响并不好,所以我们这里要做出一个判断,判断的方法很简单,如果选择了打开的话,.Show = -1就是成立的,如果没有,那就是错误的,程序就是执行弹窗提示,并直接强制结束程序,我们来试试。

20333fef60941c8b7af1df897ff86226.png

当我点击取消之后,程序并未执行后面的正常操作,而是执行了弹窗提醒的操作,完美的达到了我们的目的。

然后我们再来说说如果选择了打开的话,后面的代码的意思。

For x = 1 To .SelectedItems.Count Debug.Print .SelectedItems(x) Next x

我们既然是要汇总好多个文件,那么我们选择的时候,自然是需要选择好多个文件了,这里的.SelectedItems.Count代表的就是我们已经选择的文件总数,通过之前的学习,我们知道,我们打开文件夹自然是需要完整的路径了,那么这里完整的路径要如何活动呢,也很简单,.SelectedItems(x)就是每个文件的完整路径,我们来一步步调试下,这样更加清楚效果。

我们选择了文件夹中的所有文件,也就是总数为3个,这里.SelectedItems.Count的结果就是3,后面我们讲通过for循环遍历3次。

fe95d44e58b24e04a6b9cd0d34b2a3d8.png

我们在每次遍历的时候,都将文件夹的完整路径,也是就是.SelectedItems(x)完整的输出,也就是这样的效果

a0ca6c5031580d5b3aa1d0a3e716cd88.png

如果我们想要执行打开的命名的话,就可以直接写成

Workbooks.Open .SelectedItems(x)

完整代码+注释

Sub test()With Application.FileDialog(msoFileDialogFilePicker) '打开对话框 .AllowMultiSelect = True If .Show = -1 Then '判断是否有选择文件 For x = 1 To .SelectedItems.Count '遍历循环开始 Debug.Print .SelectedItems(x) '输出文件的完整路径,实际操作中,可以转换成为你想要的其他操作。 'Workbooks.Open .SelectedItems(x) Next x Else MsgBox "您未作出任何选择,程序结束!" '如果没有做出选择,弹窗提示,并且跳出程序。 Exit Sub End IfEnd WithEnd Sub

好了,今天的分享就结束了,本次我们主要学习的就是通过对话框来选择指定的文件,这样我们就不需要提前在代码中写入指定的文件路径了,不仅仅是提升了代码的可读性,也提高了代码的通用性,不仅仅可以方便自己的使用,也可以方便其他同事的操作,现在又没有感觉到VBA的强大呢,学好VBA,可以提升我们日常办公的效率,大家快来一起学习吧。

======================================================

本人已经打算长期分享一些网络搜集的各种VBA知识,如果大家有问题也可以提出来共同解决,一起进步,毕竟VBA的世界还是很大的。

因为基本上都是自学的,很多代码和知识都是来源于网络的,如果在分享的过程中,正好拿了某位大神的代码,请告诉我,我将标注代码来源出处,也方便大家学习分享,谢谢!

=============================传送门==============================

Excel VBA和文件夹-1.4打开文件夹内excel文件的方法

Excel VBA和文件夹-1.5遍历文件夹并打开

Excel VBA和文件夹-1.6遍历文件夹打开指定格式的文件

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
相关推荐
©️2020 CSDN 皮肤主题: 1024 设计师:白松林 返回首页