VBA实现打开最新修改文件夹及含summary的工作簿问题咨询

我来帮你修正这段代码，先说说原OpenFolder子过程里的几个核心问题：

• 调用GetLastFolder后没有把返回值存到变量里，导致完全没法引用找到的最新文件夹
• 错误尝试用GetLastFolder.Files.Count，但GetLastFolder返回的是文件夹名称字符串，不是FileSystemObject的Folder对象，这会直接报错
• 硬编码的mylist数组不符合需求，我们需要的是动态查找名称包含"summary"的文件，而非固定几个文件名
• 缺少遍历子文件夹和处理文件打开/关闭的逻辑

修正后的完整代码 #

Option Explicit

' 改进：返回Folder对象而非仅名称，方便后续直接操作文件夹内容
Function GetLastFolder(Path As String) As Object
    Dim FSO As Object, FS As Object, F As Object
    Dim DtLast As Date
    
    Set FSO = CreateObject("scripting.FileSystemObject")
    ' 先检查路径是否存在，避免报错
    If Not FSO.FolderExists(Path) Then
        Set GetLastFolder = Nothing
        Exit Function
    End If
    
    Set FS = FSO.GetFolder(Path).SubFolders
    Set GetLastFolder = Nothing ' 初始化返回值
    
    For Each F In FS
        If F.DateLastModified > DtLast Then
            DtLast = F.DateLastModified
            Set GetLastFolder = F ' 保存最新的Folder对象
        End If
    Next
End Function

Sub ProcessSummaryFiles()
    Dim latestFolder As Object
    Dim subFolder As Object
    Dim targetFile As Object
    Dim wb As Workbook
    
    ' 获取最新修改的文件夹对象
    Set latestFolder = GetLastFolder("H:\myFile\")
    
    ' 检查是否成功找到文件夹
    If latestFolder Is Nothing Then
        MsgBox "指定路径下没有子文件夹！", vbExclamation
        Exit Sub
    End If
    
    ' 遍历最新文件夹下的所有子文件夹
    For Each subFolder In latestFolder.SubFolders
        ' 遍历当前子文件夹下的所有文件
        For Each targetFile In subFolder.Files
            ' 判断文件名是否包含"summary"（不区分大小写）
            If LCase(targetFile.Name) Like "*summary*" Then
                ' 打开文件
                Set wb = Workbooks.Open(targetFile.Path)
                ' 这里可以添加需要执行的其他操作（如果有的话）
                ' 关闭文件，保存更改的话用wb.Close SaveChanges:=True
                wb.Close SaveChanges:=False
                Set wb = Nothing ' 释放对象
            End If
        Next targetFile
    Next subFolder
    
    MsgBox "所有含summary的文件已处理完成！", vbInformation
End Sub

关键修正点说明 #

1. 改进GetLastFolder函数：

   • 返回Object类型的Folder对象，而不是单纯的文件夹名称，这样后续可以直接调用文件夹的SubFolders、Files等属性，无需再重新查找
   • 添加了路径存在性检查，避免因路径错误导致的运行时错误

2. 重构ProcessSummaryFiles子过程：

   • 接收GetLastFolder返回的Folder对象，确保能正确引用最新文件夹
   • 嵌套循环遍历：先遍历最新文件夹下的所有子文件夹，再遍历每个子文件夹里的文件
   • 使用LCase(targetFile.Name) Like "*summary*"实现不区分大小写的文件名匹配，确保不会漏掉像SummaryReport.xlsx或Data_summary.csv这类文件
   • 明确处理文件的打开和关闭，添加了对象释放操作，避免内存泄漏

3. 错误处理：

   • 增加了找不到文件夹时的提示，让流程更健壮

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