教你利用VBA获取Excel最近使用的工作簿列表

办公宝典

下面的VBA代码可以获取Excel中最近使用的工作簿的完整路径和名称，并将其放到代码所在工作表的A列中（最近打开过的50条数据）。
按Alt+F11,打开VBA编辑器，在右侧代码窗口中输入下列代码:

1. Sub GetMRUList0()
2. On Error Resume Next
3. Dimi, MRUNum As Integer
4. MRUNum=
5. Application.RecentFiles.Maximum Application.RecentFiles.Maximum=50 Range("A1:A50").Clear
6. Fori=1 To50
7. Cells(i,1)= Application.RecentFiles(i).Path
8. Nexti
9. Application.RecentFiles.Maximum=
10. MRUNum
11. End Sub

複製代碼

运行代码，即可在A列中显示最近使用的工作簿列表。

Alisa慧慧

围里有什么特别好吃的吗

xungen者