如何運用VBA取得Excel最近使用的工作簿下文

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