Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I have the code listed below that searches 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 structure 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" .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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Recent documents don't display | Excel Discussion (Misc queries) | |||
Display recent documents feature in Excel | Excel Worksheet Functions | |||
When opening older version documents they do not display correctly | Excel Discussion (Misc queries) | |||
Excel documents do not display when opened | Excel Discussion (Misc queries) | |||
Excel workbook fails to display when selecting from my documents. | Excel Worksheet Functions |