在子文件夹中打开最近的文件夹并根据名称打开工作簿

Question

正如标题所暗示的，我的目标是打开最近修改的文件夹。 在这个文件夹中，我希望打开每个子文件夹并打开每个包含“摘要”的文件，然后关闭。 这是我到目前为止：

Option Explicit
Function GetLastFolder(Path As String)
    Dim FSO, FS, F, DtLast As Date, Result As String
    Set FSO = CreateObject("scripting.FileSystemObject")
    Set FS = FSO.GetFolder(Path).SubFolders
    For Each F In FS
        If F.DateLastModified > DtLast Then
             DtLast = F.DateLastModified
             Result = F.Name
        End If
    Next
    GetLastFolder = Result
End Function

Sub OpenFolder()

Dim wb As Workbook
Dim Folder As String

GetLastFolder ("H:\myFile\")

Dim numberOfFolders As Long

numberOfFolders = GetLastFolder.Files.Count

mylist = Array("File1", "File2", "File3")

For i = 0 To numberOfFolders
If Folder.Exists(mylist(i)) Then

End If

Next i

End Sub

我的函数定位最新的文件夹，子过程应该完成其余的工作。 我希望我的循环将在打开文件之前输入每个子文件夹numberOfFolder的次数，这被称为数组的名称。 我的尝试很弱，尤其是当我到达循环时。 我不确定如何引用未预定义的文件夹和文件。

Answer 1

你的 GetLastFolder 看起来不错。

试试这个 OpenFolder 来助你一臂之力：

Sub OpenFolder()

    Dim wb As Workbook
    Dim Folder As String, sPath As String
    Dim numberOfFolders As Long
    Dim oFolder As Object, oSubFolder As Object, oFSO As Object

    sPath = "C:\Program Files\"
    numberOfFolders = 0
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Folder = GetLastFolder("C:\Program Files\")

    Set oFolder = oFSO.getfolder(sPath + Folder)

    For Each oSubFolder In oFolder.subfolders
        numberOfFolders = numberOfFolders + 1
    Next

    MsgBox numberOfFolders

End Sub