VBA:如何打开文件夹中最新的两个excel文件

Sub OpenLatestTwoExcelFiles()
    Dim folderPath As String
    Dim latestFiles(1 To 2) As String
    Dim latestDates(1 To 2) As Date
    Dim file As String
    Dim fileDate As Date
    Dim i As Integer
    
    ' 设置文件夹路径
    folderPath = "C:\Your\Folder\Path\"
    
    ' 获取文件夹中的所有Excel文件
    file = Dir(folderPath & "*.xlsx")
    
    ' 遍历文件夹中的所有Excel文件
    Do While file <> ""
        ' 获取文件的创建日期
        fileDate = FileDateTime(folderPath & file)
        
        ' 检查文件是否是最新的
        For i = 1 To 2
            If fileDate > latestDates(i) Then
                ' 将文件插入到正确的位置
                For j = 2 To i Step -1
                    latestFiles(j) = latestFiles(j - 1)
                    latestDates(j) = latestDates(j - 1)
                Next j
                latestFiles(i) = file
                latestDates(i) = fileDate
                Exit For
            End If
        Next i
        
        ' 获取下一个文件
        file = Dir
    Loop
    
    ' 打开最新的两个Excel文件
    For i = 1 To 2
        Workbooks.Open folderPath & latestFiles(i)
    Next i
End Sub