最近使用したファイルを取得する【RecentFilesプロパティ】【ExcelVBA】

構文

Object.RecentFiles

RecentFilesプロパティは最近使用したファイルを表示します。
最近使用したファイルとは以下の事です。

※ファイル名は黒塗りで室慰霊します

RecentFilesプロパティのサンプルコード

Public Sub sample()
    
    '■一番近々に使用したファイル名を取得(フルパス)
    Debug.Print Application.RecentFiles.Item(1).Name    '\Users\User\Desktop\sample.xlsx
    
    '■現在使用されている使用したファイルの数を取得
    Debug.Print Application.RecentFiles.Count         '50
    
    '■最近使用したファイルを全て出力する
    Dim i As Long
    For i = 1 To Application.RecentFiles.Count
        Debug.Print Application.RecentFiles.Item(i).Name
    Next i
    
End Sub

注意点

• index番号は1からスタートします。OptionBase1に関わらず1からスタートします。
• index番号は新しいものから順に1からスタートします。

関連記事

• ファイルまたはフォルダを抽出する【Dir関数】【ExcelVBA】
• ファイルをコピーする【FileCopyステートメント】【ExcelVBA】
• ファイルを移動する【Nameステートメント】【ExcelVBA】