利用VBA獲取Excel最近使用的工作簿列表

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

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