Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
A little help please on a macro to display results.
I have the code listed below that searchs a folder and if it finds any
PDF files its displays them with a hyperlink in the spreadsheet. My problem is that under the MAIN folder I have tons of files now and its very hard to find the PDF I am looking for.. I redid my file structire under main and now I have folders for years 2010, 2012,2013,2014,2015 and so on. Under each years directory are the directories for the 12 months of the year & under each of these months I have two folders A-cast & B-cast. What I would like is that the code could search the folders starting form MAIN by prompting the user for the year, & than the month & then the folder name And then display contents of the folder as results on the spreadsheet If a user did not have lets say the folder names A-cast & B-cast the program could display contents of both A-cast & B-cast. Here is the code I got from the forum. Sub all_2010() ' Macro to searh & display PDf files Dim i As Long With Application.FileSearch .NewSearch .SearchSubFolders = True .Filename = "*.pdf" .LookIn = "c:\Scans\TW\MAIN\2010" .Execute For i = 1 To .FoundFiles.Count ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), _ Address:=.FoundFiles(i), TextToDisplay:= _ Right(.FoundFiles(i), Len(.FoundFiles(i)) - _ InStrRev(.FoundFiles(i), "\")) Next End With End Sub thanks in advance |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Display results of formula | Excel Worksheet Functions | |||
display results 2 of 2 | Excel Discussion (Misc queries) | |||
Display next to last results | Excel Worksheet Functions | |||
Formula display - no results | Excel Discussion (Misc queries) | |||
How can I list the results of my macro without overwritng previous results? | Excel Programming |