HOME > 即効テクニック > Excel VBA > ファイル操作関連のテクニック > 「最近使用したブック」のリストを取得する(RecentFileオブジェクト)

「最近使用したブック」のリストを取得する(RecentFileオブジェクト)|Excel VBA

ファイル操作関連のテクニック

「最近使用したブック」のリストを取得する(RecentFileオブジェクト)

(Excel 2000/2002/2003/2007/2010/2013)

Excelには「最近使用したブック」の一覧を表示して、そこから簡単にファイルを開く機能があります。一覧が表示される場所は、Excelのバージョンによって異なりますが、Excel 2013の場合は[ファイル]タブの[開く]メニューをクリックするとファイルの一覧が表示されます。

この一覧をVBAで取得するには、ApplicationオブジェクトのRecentFilesプロパティでRecentFilesコレクションを取得して、コレクションに含まれるResentFileオブジェクトのNameプロパティを利用します。Namesプロパティはファイル名をフルパスで返します。

 構文 オブジェクト.Name

 設定項目    内容
 オブジェクト  RecentFileオブジェクト

次のサンプルは、RecentFilesコレクションのCountプロパティを利用して、「最近使用したブック」に表示されているファイル数を取得します。その後、Nameプロパティを利用して、ファイル名の一覧をイミディエイトウィンドウに表示します。

Sub Sample()
    Dim FileCount As Long
    Dim i As Long
        
    FileCount = Application.RecentFiles.Count
    If FileCount = 0 Then Exit Sub
    
    For i = 1 To FileCount
        Debug.Print Application.RecentFiles(i).Name
    Next i
End Sub