通常在辦公當中，Excel會自動保存以前編輯過的文件，通過“打開”菜單就可以找到最近打開的文件。

這個功能，對于一些記憶不好的人來說，十分有用，因為在電腦裡查找一個文件也十分困擾的事情。

如果你常常為了找不到文件而煩惱，那麼下面的内容對你一定有幫助。

針對使用過的文件記錄，Excel有一個自己的儲存方式，我們要學習的就是，很好地利用這個方法，把曾經編輯過的文件找出來。

用到兩個對象：RecentFiles和RecentFile

是不是感覺一樣，其實這兩個對象前者是後者的集合。

使用上有些不相同，下圖為具體對象的方法和屬性。

使用方法

Application.RecentFiles

一定要是Application下使用，表示Excel應用下的對象。

如要查看有多少個文件：

Application.RecentFiles.Count

後面加屬性（.Count）即可。

某一個文件用如下代碼：

Application.RecentFiles.Item(1)'代表第一個文件

如果要設置文件數，如下代碼：

Application.RecentFiles.Maximum = 8

數字8代表最多可以查看8個曾經打開的文件。

這裡根據Excel版本不同數量也不相同，2016版32位最多50個文件。

上圖為一個示例，将以列表形式把最近打開過的Excel文件列出來，雙擊文件名打開文件。

功能上還是可以的，使用起來很方便。

增加一個文本框可以自定義打開的文件數。

顯示文件按鈕代碼

Private Sub CommandButton1_Click() Dim Fx As Variant Fx = ActiveSheet.TextBox1.Value'文件數量設置 If VBA.Len(Fx) = 0 Then Exit Sub If VBA.Trim(Fx) <= 0 Then Exit Sub If VBA.Trim(Fx) > 50 Then'設置文件數量最大為50 Fx = 50 TextBox1.Value = Fx End If If Not VBA.IsNumeric(Fx) Then Exit Sub Application.RecentFiles.Maximum = Fx Dim x As Long x = Application.RecentFiles.Count Dim xArr ReDim xArr(0 To x - 1)'定義文件數組 For i = 1 To x xArr(i - 1) = Application.RecentFiles.Item(i).Path'數組賦值 Next i ActiveSheet.ListBox1.List = xArr'列表框賦值 End Sub

雙擊列表框功能代碼

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim Finx As Long, Fpath As Variant Finx = ActiveSheet.ListBox1.ListCount Fpath = ActiveSheet.ListBox1.Value If Finx = 0 Then Exit Sub Workbooks.Open Fpath'打開文件 End Sub

這個小功能很方便，特别是平時辦公的時候，對于文件打開方式是一個不錯的選擇。

其實這個功能在Excel菜單裡就有，但是使用起來可能沒有如此快捷，畢竟Excel設置文件數量固定以後，就是那麼多，不能靈活查看更多。

---END---

歡迎關注、收藏

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!