找不到最近開啟的Excel檔案，怎麼辦，教你一個好方法

NO。1

通常在辦公當中，Excel會自動儲存以前編輯過的檔案，透過“開啟”選單就可以找到最近開啟的檔案。

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

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

NO。2

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

用到兩個物件：RecentFiles和RecentFile

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

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

NO。3

使用方法

Application。RecentFiles

一定要是Application下使用，表示Excel應用下的物件。

如要檢視有多少個檔案：

Application。RecentFiles。Count

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

某一個檔案用如下程式碼：

Application。RecentFiles。Item（1）‘代表第一個檔案

如果要設定檔案數，如下程式碼：

Application。RecentFiles。Maximum = 8

數字8代表最多可以檢視8個曾經開啟的檔案。

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

NO。4

上圖為一個示例，將以列表形式把最近開啟過的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

NO.5

這個小功能很方便，特別是平時辦公的時候，對於檔案開啟方式是一個不錯的選擇。

其實這個功能在Excel選單裡就有，但是使用起來可能沒有如此快捷，畢竟Excel設定檔案數量固定以後，就是那麼多，不能靈活檢視更多。

——-END——-

歡迎關注、收藏