如何编写宏刷新文件夹内所有Excel文件的全部数据连接？是否可行？

下面给你拆解具体的实现思路和关键代码片段，帮你快速搞定批量刷新：

核心实现步骤 #

• 遍历目标文件夹的Excel文件：用VBA的Dir函数就能轻松遍历指定文件夹下的所有.xlsx/.xlsm文件，不用额外引用组件
• 批量打开并处理文件：逐个打开文件，关闭屏幕更新和警告弹窗提升效率，避免操作时的卡顿和干扰
• 刷新所有数据连接：遍历每个文件里的Connections集合，对每个连接执行刷新操作，同时处理可能的异常（比如连接失效）
• 保存并关闭文件：刷新完成后保存更改，再关闭文件，最后恢复Excel的默认设置

完整代码示例 #

Sub BatchRefreshAllConnections()
    Dim targetFolder As String
    Dim fileName As String
    Dim wb As Workbook
    
    ' 设置目标文件夹路径（替换成你的文件夹路径）
    targetFolder = "C:\YourExcelFilesFolder\"
    If Right(targetFolder, 1) <> "\" Then targetFolder = targetFolder & "\"
    
    ' 关闭屏幕更新和警告弹窗，提升运行效率
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 遍历文件夹下的所有Excel文件
    fileName = Dir(targetFolder & "*.xl*")
    Do While fileName <> ""
        ' 跳过当前运行宏的文件（如果宏在这个文件夹里的话）
        If fileName <> ThisWorkbook.Name Then
            Set wb = Workbooks.Open(targetFolder & fileName)
            
            On Error Resume Next ' 捕获刷新错误，避免中断批量操作
            ' 遍历并刷新所有数据连接
            Dim conn As WorkbookConnection
            For Each conn In wb.Connections
                ' 只刷新数据库类型的连接（跳过文本/其他类型）
                If conn.Type = xlConnectionTypeOLEDB Or conn.Type = xlConnectionTypeODBC Then
                    conn.Refresh
                End If
            Next conn
            On Error GoTo 0
            
            ' 保存并关闭文件
            wb.Save
            wb.Close
        End If
        
        ' 获取下一个文件
        fileName = Dir
    Loop
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    MsgBox "所有文件的数据连接已批量刷新完成！", vbInformation
End Sub

注意事项 #

• 路径替换：记得把代码里的C:\YourExcelFilesFolder\替换成你的实际文件夹路径
• 宏安全设置：如果你的文件是启用宏的格式（.xlsm），需要确保Excel的宏安全设置允许运行宏
• 异常处理：代码里加了On Error Resume Next来跳过刷新失败的文件，你可以根据需要扩展错误处理逻辑（比如记录失败的文件名）
• 连接类型：代码里只处理了OLEDB和ODBC类型的数据库连接，如果你的文件有其他类型的连接，可以调整conn.Type的判断条件

内容的提问来源于stack exchange，提问作者Airbum88