下面的VBA代码可以获取Excel中最近使用的工作簿的完整路径和名称,并将其放到代码所在工作表的A列中。在Excel 2007和Excel 2010中,如果通过“Office按钮(或“文件”选项卡)→Excel选项→高级”设置显示“最近使用的文档”数量大于“0”,该代码可以显示最近使用的最多50个工作簿名称。而对于Excel 2003,A列中显示的工作簿名称数量与“文件”菜单底部所显示的最近使用文件数量相同。

按Alt+F11,打开VBA编辑器,在右侧代码窗口中输入下列代码:

Sub GetMRUList()
On Error Resume Next
Dim i, MRUNum As Integer
MRUNum = Application.RecentFiles.Maximum
Application.RecentFiles.Maximum = 50
Range("A1:A50").Clear
For i = 1 To 50
Cells(i, 1) = Application.RecentFiles(i).Path
Next i
Application.RecentFiles.Maximum = MRUNum
End Sub

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

版权声明

本文仅代表作者观点,不代表本站立场。
本站资源均来自互联网整理,版权归原作者所有,切勿用作非法使用和未经授权的商用,因此带来的法律风险与本站无关。

本文链接:http://www.chousj.cn/exceljc/860.html

发表评论

评论列表(0人评论 , 34人围观)
☹还没有评论,来说两句吧...

免费资源分享网_电脑操作教程_免费源代码下载_免费字体下载_高清电脑壁纸

http://www.chousj.cn/

| 渝ICP备15004826号

Powered By

使用手机软件扫描微信二维码

关注我们可获取更多热点资讯