vba - 如何使用 VBA 删除 Excel 功能区中最近的文档历史记录

Question

如何使用 VBA 删除 Excel 功能区中的最近文档历史记录。

我正在使用下面的代码，但它似乎不起作用。

Sub Button1_Click()
    For i = 1 To Application.RecentFiles.Count - 1
        Application.RecentFiles(i).Delete
    Next i
End Sub

谢谢...

Answer 1

要清除最近使用的文件列表，并且不弄乱用户的设置，可以使用以下代码:

originalSetting = Application.RecentFiles.Maximum

Application.RecentFiles.Maximum = 0

Application.RecentFiles.Maximum = originalSetting

这将删除最近使用的文件，然后将最近使用的文件的最大数量重置为用户最初拥有的数量。

如果您只想单独删除它们，您可以按相反顺序逐步完成它们以完成工作。

 Dim i As Integer

For i = Application.RecentFiles.Count To 1 Step -1
    Application.RecentFiles.Item(i).Delete
Next

您需要从集合底部向上运行，因为一旦您从 RecentFiles 集合中删除其中一个条目，其余文件的所有索引都会更改。这样，每次通过循环，您都会删除集合中的最后一项。

而且，由于此集合是基数 1 而不是基数 0，因此集合中的最后一项是 Application.RecentFiles.Count 而不是 .RecentFiles.Count-1。

我只是喜欢 Excel 中所有那些小的不一致。:)