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