Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Files In A Subdirectory
From Excel VBA, with a spreadsheet open, I would like to store the
list of all files ending in .XLS, in filename order, in the directory that spreadsheet is in. I would then want to process each of those files (in filename order) and, based on a certain string I'm looking for within the filename, do some processing based on that filename. It's probably pretty straightforward but I would appreciate any code suggestions anyone may have. Thank you, Sheldon |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Files In A Subdirectory
Try soemthing like this. I sometimes have problem with a search pattern like
"*abc*.xls" so I did the compare in two steps. First look for XLS files then use INSTR to find the particular string you want to match. Folder = "C:\temp" First = true do if First = True then FName = Dir(Folder & "\*.xls) First = False else FName = Dir() end if if FName < "" then if instr(FName,"Search String") 0 then 'Enter Your code here end if end if loop while FName < "" "Sheldon Potolsky" wrote: From Excel VBA, with a spreadsheet open, I would like to store the list of all files ending in .XLS, in filename order, in the directory that spreadsheet is in. I would then want to process each of those files (in filename order) and, based on a certain string I'm looking for within the filename, do some processing based on that filename. It's probably pretty straightforward but I would appreciate any code suggestions anyone may have. Thank you, Sheldon |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Files In A Subdirectory
Thanks Joel; I've incorporated your code and it will work very well.
There was one typo: FName = Dir(Folder & "\*.xls) should be FName = Dir(Folder & "\*.xls") 2nd double quote added Sheldon On Apr 16, 10:28*am, Joel wrote: Try something like this. *I sometimes have problem with a search pattern like "*abc*.xls" so I did the compare in two steps. *First look for XLS files then use INSTR to find the particular string you want to match. Folder = "C:\temp" First = true do * *if First = True then * * * FName = Dir(Folder & "\*.xls) * * * First = False * *else * * * FName = Dir() * *end if * *if FName < "" then * * * if instr(FName,"Search String") 0 then * * * * *'Enter Your code here * * * end if * *end if loop while FName < "" "Sheldon Potolsky" wrote: From Excel VBA, with a spreadsheet open, I would like to store the list of all files ending in .XLS, in filename order, in the directory that spreadsheet is in. *I would then want to process each of those files (in filename order) and, based on a certain string I'm looking for within the filename, do some processing based on that filename. It's probably pretty straightforward but I would appreciate any code suggestions anyone may have. Thank you, Sheldon- Hide quoted text - - Hide quoted text - |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Link to file in subdirectory | Excel Programming | |||
need subdirectory check 99 | Excel Programming | |||
searching for a worksheet name while going through a subdirectory | Excel Programming | |||
Saving to subdirectory using date() | Excel Programming | |||
Find Correct Subdirectory | Excel Programming |