vba

2024-07-15 22:02| 来源: 网络整理| 查看: 265

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

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

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

谢谢...

最佳答案

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

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 中所有那些小的不一致。:)

关于vba - 如何使用 VBA 删除 Excel 功能区中最近的文档历史记录，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/2117686/

【本文地址】

今日新闻