VBA小程序--升级版--打开文件夹内所有Excel表格，采用用户点选文件夹路径_而无须修改源代码（代码简单，针对xls + xlsx，注释清楚，小白亦可轻松看懂）

本文介绍了一种使用VBA批量打开并关闭指定文件夹下所有Excel文件的方法，通过用户选择文件夹路径，无需修改源代码即可实现自动化操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Public Function ChooseFolder() As String
    '定义并新建一个对话框对象
    Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)
    '如果当前没有对话框显示，就让他弹出对话框
    If dlgOpen.Show = -1 Then ChooseFolder = dlgOpen.SelectedItems(1)
    Set dlgOpen = Nothing
End Function
Sub VBA打开文件夹内所有Excel表格_升级版_采用用户点选文件夹路径_而无须修改源代码()
    Dim myPath$, myFile$, WB As Workbook    '这个$ 是相当于定义字符串
    '调用函数，获取用户选择的文件夹，并且在最后加上一个反斜杠，用于下面的文件列表获取
    myPath = ChooseFolder & "\"
    myFile = Dir(myPath & "*.xls*") '依次找寻指定路径中的*.xls，或者xlsx文件
    Do While myFile <> "" '当指定路径中有文件时进行循环
        If myFile <> ThisWorkbook.Name Then '如果我们这个宏文件在需要处理的文件夹之中，这个判断就会跳过下面的操作
            Set WB = Workbooks.Open(myPath & myFile) '打开符合要求的文件
            WB.Close 0  '不保存文件直接关闭
        End If
        myFile = Dir '找寻下一个*.xls，或者xlsx文件
    Loop
    Set WB = Nothing    '释放变量内存
End Sub