recent files in a list box

[yinkajewole]

using a listbox, how do i let it display up to 60 recently opened files.

 

[Fluff]

Cross posted https://www.excelforum.com/excel-pr...cently-open-files-in-listbox.html#post5110185

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

 

[My Aswer Is This]

I would like to see a answer to this question if there is one.
The other site only allows seeing answers if you log in.
So if you get a answer please post it here.

 

[Yongle]

My version of Excel errors if maximum is set above 50

Test unaltered first and then try amending to 60

Private Sub ListBox1_GotFocus()
    Application.RecentFiles.Maximum = [COLOR=#ff0000]50[/COLOR]
    ListBox1.Clear
    Dim i As Integer
    For i = 1 To [COLOR=#ff0000]50[/COLOR]
        On Error GoTo TheEnd
        ListBox1.AddItem Application.RecentFiles(i).Path
    Next
TheEnd:
End Sub

For the Name without path

ListBox1.AddItem Application.RecentFiles(i).Name

 

[My Aswer Is This]

That worked for me:
Thanks.

What does this line of code do:

Application.RecentFiles.Maximum = ​

50​

​

My version of Excel errors if maximum is set above 50

Test unaltered first and then try amending to 60

Private Sub ListBox1_GotFocus()
    Application.RecentFiles.Maximum = [COLOR=#ff0000]50[/COLOR]
    ListBox1.Clear
    Dim i As Integer
    For i = 1 To [COLOR=#ff0000]50[/COLOR]
        On Error GoTo TheEnd
        ListBox1.AddItem Application.RecentFiles(i).Path
    Next
TheEnd:
End Sub

For the Name without path

ListBox1.AddItem Application.RecentFiles(i).Name

 

[Yongle]

@My Aswer Is This
try amending the value in that line to 10 and run the VBA again

 

[My Aswer Is This]

Thanks

@My Aswer Is This
try amending the value in that line to 10 and run the VBA again

 

[Yongle]

posted something here in error oops!

 

[yinkajewole]

My version of Excel errors if maximum is set above 50

Test unaltered first and then try amending to 60

Private Sub ListBox1_GotFocus()
    Application.RecentFiles.Maximum = [COLOR=#ff0000]50[/COLOR]
    ListBox1.Clear
    Dim i As Integer
    For i = 1 To [COLOR=#ff0000]50[/COLOR]
        On Error GoTo TheEnd
        ListBox1.AddItem Application.RecentFiles(i).Path
    Next
TheEnd:
End Sub

For the Name without path

ListBox1.AddItem Application.RecentFiles(i).Name

what about this idea, that the recently opened files should be saved into a textfile, and the files should be retrieved from the text file. is it possible?

 

[Yongle]

@yinkajewole - perhaps you did not see my solution in post#4

using a listbox, how do i let it display up to 60 recently opened files

@My Aswer Is This confirmed that the solution posted works well
Q1 Did you test it?

what about this idea, that the recently opened files should be saved into a textfile, and the files should be retrieved from the text file. is it possible?

Q2 Why would this be helpful? Are you wanting a longer list than Excel maintains?