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

前景提要

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

思路

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


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

那么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 If

End With

End Sub

代码解析

With Application.FileDialog(msoFileDialogFilePicker)

********

End With

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

2.jpg

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

If .Show = -1 Then

        *******

        Else

            MsgBox "您未作出任何选择,程序结束!"

            Exit Sub

    End If

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

3.jpg

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

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

For x = 1 To .SelectedItems.Count

            Debug.Print .SelectedItems(x)

        Next x

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

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

4.jpg

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

5.jpg

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

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 If

End With

End Sub

你可能感兴趣的:(Excel VBA和文件夹-1.7通过对话框灵活选定文件夹并打开对应文件)