如何運(yùn)用VBA取得Excel最近使用的工作簿下文

下面的VBA代碼可以獲取Excel中最近使用的工作簿的完整路徑和名稱，并將其放到代碼所在工作表的A列中。在Excel 2007和Excel 2010中，如果通過(guò)“Office按鈕（或“文件”選項(xiàng)卡）→Excel選項(xiàng)→高級(jí)”設(shè)置顯示“最近使用的文檔”數(shù)量大于“0”，該代碼可以顯示最近使用的最多50個(gè)工作簿名稱。而對(duì)于Excel 2003，A列中顯示的工作簿名稱數(shù)量與“文件”菜單底部所顯示的最近使用文件數(shù)量相同。

按Alt+F11，打開VBA編輯器，在右側(cè)代碼窗口中輸入下列代碼：

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

運(yùn)行代碼，即可在A列中顯示最近使用的工作簿列表。