Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Most used file list in Excel 2000

Status
Not open for further replies.

gearhead03

Technical User
Mar 29, 2003
147
US
Is there a way to "sticky" files in my most used file list? Once a week, I have to open several files and it pushes the ones that I use most often off the list!

Thank You!

Mark A. Kale
 
Not the answer you are looking for, but how about putting shortcuts to these files in your "My Documents" folder.

[tt]_____
[blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]

Help us help you. Please read FAQ181-2886 before posting.
 
I am trying to be as lazy as possible and that would just be TOO much work!! ;)
All that clicking just wears a man out!

Mark A. Kale
 
Well, you could always have an Excel sheet that contains hyperlinks...

< M!ke >
Acupuncture Development: a jab well done.
 
How about creating a macro one time for all the most commonly opened files. Run the macro for the file you want to open when you want to open it....you could even link the macro to a button.
 
Right-click the Start icon at the bottom left and choose "Explore." Locate the following path:

C:\Documents and Settings\YOUR_NAME\Recent

Right-click "Recent" or "My Recent Documents" and move your mouse cursor over "Send To" and pick "Desktop (create shortcut).
 
Hi,

Here is a Work Menu Add-in which does just what you want - stores the files you access frequently, and when you access them the MRU List is not touched.

I have used it without problem for several years and would not be without it.

Given it is built into but not displayed in Word, heaven knows why it took until Office 07 to incorporate it in Excel.

Here is the URL:


Good Luck!
Peter Moran
 
I clicked that link and it displayed this link

ftp://ftp.mcgimpsey.com/excel/workmenu1.0.xla

and I get

"451 login failed, can't set startup dir to /var/ftp: no such file or directory"

Mark A. Kale
 
You can make the files available in 'Start' menu. Add a folder to 'Start' button and paste shortcuts.

If you work with all the files opened at the same time, open them all and save as workspace. All file settings (names of opened files and their windows states) will be stored in one file.

combo
 
File, save workspace creates a file with the extension xlw that is a list of workbooks currently open.

If you "open" the xlw file Excel will open the original files. You can use this approach to create your sticky.
 
In Excel, go to Tools -> Options -> General Tab and you can increase the "Recently used file list."

Another method would be to use VBA.

Userform in Personal.xls
Code:
' Userform name :  frmRecentExcel
' Listbox name  :  lstRecentExcel

Private Sub UserForm_Activate()
   Dim path_name As String, file_name As String, fso As Object
   
   Set fso = CreateObject("Scripting.FileSystemObject")
   
   path_name = "C:\Documents and Settings\[COLOR=red]WinblowsME[/color]\Recent\"
   file_name = Dir(path_name & "*.xls.lnk")
   
   Do While file_name <> ""
      file_name = Get_Target_Path(path_name & file_name)

      If fso.FileExists(file_name) Then
         lstRecentExcel.AddItem (file_name)
      End If

      file_name = Dir
   Loop
   
   Set fso = Nothing
End Sub

Private Sub lstRecentExcel_Click()
   On Error GoTo FILE_OPEN_ERR
   
   Workbooks.Close
   Workbooks.Open (lstRecentExcel.List(lstRecentExcel.ListIndex))
   
   Exit Sub
FILE_OPEN_ERR:
   MsgBox Err.Number & " " & Err.Description
End Sub

Private Function Get_Target_Path(ByVal file_name As String) As String
   Dim obj As Object, shortcut As Object
   
   Set obj = CreateObject("WScript.Shell")
   Set shortcut = obj.CreateShortcut(file_name)
   
   Get_Target_Path = shortcut.TargetPath
   
   Set shortcut = Nothing
   Set obj = Nothing
End Function

Macro in Personal.xls
Code:
Sub Get_Recent_Excel()
   frmRecentExcel.Show
End Sub
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top