而无须专题
VBA小程序--升级版--打开文件夹内所有Excel表格，采用用户点选文件夹路径_而无须修改源代码（代码简单，针对xls + xlsx，注释清楚，小白亦可轻松看懂）
Public Function ChooseFolder() As String'定义并新建一个对话框对象Dim dlgOpen As FileDialogSet dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)'如果当前没有对话框显示，就让他弹出对话框If dlgOpen.Show = -1 Then ChooseFolder