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