スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
「ファイル」メニューには最近使用したファイルの一覧が表示されます。この一覧を取得するには、ApplicationオブジェクトのRecentFilesプロパティでRecentFilesコレクションを取得し、ResentFileオブジェクトのNameプロパティを利用します。

　構文 オブジェクト.Name
　設定項目　　　　内容
　オブジェクト　　RecentFileオブジェクト

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

●サンプル●

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