VBA运行时错误76(路径未找到)：批量处理Excel数据求助

错误根源 #

触发Run-time error 76的核心原因是：传递给fs.GetFolder()的路径带了通配符*.xlsx，这个方法仅接受纯文件夹路径，不能包含文件名或通配符。你的代码里把filePath拼接成了A:\SCHOOL\2023_SPRING\MME449\Actuator_testing\*.xlsx，完全不符合GetFolder的参数要求。

修正步骤 #

1. 拆分文件夹路径与文件筛选逻辑：保留纯文件夹路径给GetFolder，遍历文件时单独筛选.xlsx格式。
2. 移除冗余代码：原Set folderFiles = fs.GetFolder(folder).Files是重复操作，直接用folder.Files即可遍历文件。
3. 强制变量声明：添加Option Explicit，避免隐式类型错误导致的潜在问题。
4. 增加错误处理：如果E3到最后一行无有效数值，Max和Average会报错，需捕获并处理这类情况。

修正后的完整代码 #

Option Explicit

Sub GetLargestAndAverage()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim folderPath As String
    Dim lastRow As Long
    Dim largestValue As Variant
    Dim averageValue As Variant
    Dim totalCount As Long
    Dim fs As Object
    Dim folder As Object
    Dim file As Object
    
    ' 设置目标文件夹路径
    folderPath = "A:\SCHOOL\2023_SPRING\MME449\Actuator_testing\"
    
    ' 确保路径末尾带反斜杠
    If Right(folderPath, 1) <> "\" Then
        folderPath = folderPath & "\"
    End If
    
    ' 创建文件系统对象
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件夹对象（传入纯文件夹路径，无通配符）
    Set folder = fs.GetFolder(folderPath)
    
    ' 初始化计数
    totalCount = 0
    
    ' 遍历文件夹内所有文件
    For Each file In folder.Files
        ' 筛选xlsx格式文件
        If LCase(Right(file.Name, 5)) = ".xlsx" Then
            ' 只读打开文件，避免锁定
            Set wb = Workbooks.Open(file.Path, ReadOnly:=True)
            
            ' 遍历工作簿内所有工作表
            For Each ws In wb.Sheets
                lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
                
                ' 仅处理E3及以下有数据的情况
                If lastRow >= 3 Then
                    On Error Resume Next
                    largestValue = Application.WorksheetFunction.Max(ws.Range("E3:E" & lastRow))
                    averageValue = Application.WorksheetFunction.Average(ws.Range("E3:E" & lastRow))
                    On Error GoTo 0
                    
                    ' 处理无有效数值的情况
                    If IsError(largestValue) Then largestValue = "无有效数据"
                    If IsError(averageValue) Then averageValue = "无有效数据"
                    
                    totalCount = totalCount + 1
                    
                    ' 输出结果到当前工作簿的第一个工作表
                    With ThisWorkbook.Sheets(1)
                        .Cells(totalCount + 1, 1) = file.Name
                        .Cells(totalCount + 1, 2) = ws.Name
                        .Cells(totalCount + 1, 3) = largestValue
                        .Cells(totalCount + 1, 4) = averageValue
                    End With
                End If
            Next ws
            
            wb.Close SaveChanges:=False
        End If
    Next file
    
    ' 设置表头并格式化
    With ThisWorkbook.Sheets(1)
        .Range("A1:D1") = Array("文件名", "工作表名", "最大值", "平均值")
        .Range("A1:D1").Font.Bold = True
        .Columns("A:D").AutoFit
    End With
    
    ' 释放对象
    Set file = Nothing
    Set folder = Nothing
    Set fs = Nothing
    Set ws = Nothing
    Set wb = Nothing
End Sub

关键修改说明 #

• 拆分出纯文件夹路径folderPath，彻底解决GetFolder的路径参数错误。
• 只读打开目标工作簿，避免文件被锁定无法编辑。
• 增加空范围、无效数据的错误处理，防止代码崩溃。
• 单独设置表头，避免无数据时表头被覆盖的问题。
• 添加Option Explicit强制变量声明，减少隐式错误。

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