VBA - 如何从 Excel 2007 中的最近文档列表中删除文件

如何从 Excel 2007 中的最近文档列表中删除文件？

vba
Sub RemoveFileFromRecentDocuments(filePath As String)
    Dim recentDocs As Object
    Dim recentFiles As Object
    Dim i As Integer
    ' 获取最近文档列表对象
    Set recentDocs = Application.recentfiles
    ' 获取最近文档列表中的所有文件对象
    Set recentFiles = recentDocs.items
    ' 遍历最近文档列表，查找并删除指定文件
    For i = 1 To recentFiles.count
        If recentFiles(i).path = filePath Then
            recentFiles(i).delete
            Exit For
        End If
    Next i
End Sub

vba
Sub Test()
    RemoveFileFromRecentDocuments "C:\Users\user\Desktop\example.xlsx"
End Sub