List of ALL Excel documents

[cheetah2042]

I use Microsoft Excel alot and have many, many documents saved.Need to know if there is a way I can print out ALL Excel document titles?...so I have a list of WHAT I have.....need to do some deleting, but would like a list to check them off.
Is there a way gang?
Please post
Many thanx

 

[sbendbuckeye]

Are you talking about a way to do this with VBA code? Can you write code, and if so, are you familiar with the FileSystemObject which allows you to traverse the folders on your system? Good Luck!

 

[cheetah2042]

New with Excel....so NOT sure what you are talking about...Just need a 'printout' of ALL my Excel documents (just the titles will do)....Is there a source?...a code....whatever?....that could show me all the documents I have.
Thanx for the quick reply

 

[Todd Bardoni]

Try this code to list the names in an excel sheet, then you can print (yoiu'll have to specify the path):-

Sub test()
    MyPath = "C:\*.xls"
    MyName = Dir(MyPath, vbDirectory)
    Do While MyName <> ""
        Range("A65536").End(xlUp).Offset(1, 0) = MyName
        MyName = Dir
    Loop
End Sub

 

[sbendbuckeye]

If you mean that you need a list of all of your Excel files where ever they may be stored, here is a quick and dirty way to do it.

1. Open a DOS prompt
2. c:
3. CD \
4. Dir *.xls /s > xlFiles.txt

The above will list all Excel files to a text file named xlFiles.txt which you can open up in NotePad. If that is not what you mean, please post again. Good Luck!

 

[daniels012]

If you want to print them,
You could very easily go to start... Find... FIles or Folders... enter *.xls.

Once you see all of them, Highlight them then right click and hit print . I even think you can print selection as an option instead In folder, type, modified, etc.

Hope this Helps,
Michael

 

[cheetah2042]

Thanx daniels012
...but that just wanted to start printing out ALL my documents individually.
Waaaayy too many to do that
...JUST need a list...obviuosly I am no techy....
thought it would be a simple request to get alist of my Excel documents..
Thanx anyways Guys

 

[Tom Urtis]

Assumes you really mean *all* Excel workbook files when you say "ALL Excel document titles". Modify for drive if it is not C.


Sub Test1()
Application.ScreenUpdating = False
Dim NR As Long, FilesToProcess&, FileName$, x&
Columns(1).Clear
Range("A1").Value = "FileName"
NR = 2

With Application.FileSearch
.NewSearch
.LookIn = "C:\"
.SearchSubFolders = True
.FileName = "*.xls"
.Execute
FilesToProcess = .FoundFiles.Count

For x = 1 To .FoundFiles.Count
FileName = .FoundFiles(x)
Cells(NR, 1).Value = FileName
NR = NR + 1
Next x
End With

Columns(1).AutoFit
ActiveSheet.PrintOut
Application.ScreenUpdating = True
End Sub

 

[cheetah2042]

Ummm sorry...that is all Chinese to me....
and No I don't speak it either...
as previously mentioned I am NO techy...
Thanx Tom
I'm givin' up
Ignore post gang
and thanx for the effort
B

 

[sbendbuckeye]

Hello Cheetah,

Did you try my old fashioned way with the DOS prompt? It is ugly, but should work for you without an coding except to copy in the steps as outlined. I hate to see you go away empty! Good Luck!