下面的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列中顯示最近使用的工作簿列表。