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

Question

Office中最近的文档功能非常有用,但是我将文件移动到了一个新目录,现在每次打开工作簿时都无法让Excel停止使用"无法找到此文件"通知.Excel选项似乎只控制显示这些"最近文档"的数量,而不是实际保存的数量.所以我想知道在VBA中是否有办法进入列表并删除有问题的文件.

Answer 1

试试这个...

Public Function TestIt()
    For i = 1 To Application.RecentFiles.Count - 1
        Dim answer As String
        answer = MsgBox("Delete " & Application.RecentFiles(i).Name, vbYesNo)

        If answer = vbYes Then
            answer = MsgBox("Are you sure?", vbYesNo)
            If answer = vbYes Then
                Application.RecentFiles(i).Delete
            End If
        End If
    Next i
End Function