Excel是许多职场人士常用的烦恼之源,学习相关技巧需耗费大量时间。简道云作为一款办公神器,能很好地替代Excel。它是一个在线表单和数据管理工具,支持PC端和手机微信浏览器操作。除此之外,简道云还能辅助企业进行流程审批、财务报销、人事管理等业务管理,满足不同需求。
如何利用VBA获取Excel最近使用的工作簿列表
下面的VBA代码可以获取Excel中最近使用的工作簿的完整路径和名称,并将其放到代码所在工作表的A列中。在Excel 2007和Excel 2010中,如果通过“Office按钮(或“文件”选项卡)→Excel选项→高级”设置显示“最近使用的文档”数量大于“0”,该代码可以显示最近使用的最多50个工作簿名称。而对于Excel 2003,A列中显示的工作簿名称数量与“文件”菜单底部所显示的最近使用文件数量相同。
按Alt+F11,打开VBA编辑器,在右侧代码窗口中输入下列代码:
Sub GetMRUList()On Error Resume NextDim i, MRUNum As IntegerMRUNum = Application.RecentFiles.MaximumApplication.RecentFiles.Maximum = 50Range("A1:A50").ClearFor i = 1 To 50Cells(i, 1) = Application.RecentFiles(i).PathNext iApplication.RecentFiles.Maximum = MRUNumEnd Sub
运行代码,即可在A列中显示最近使用的工作簿列表。