ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Working with directories question (https://www.excelbanter.com/excel-programming/320372-working-directories-question.html)

helen

Working with directories question
 
I would like to have amacro that follows a path until it gets to the "Month"
Subfolder. At this point it would check the month against the month in the
folder name and open the releated subfolder where a file will exist that I
would open in much the same way.

Is it possible? What do I need to get started?

Lonnie M.

Working with directories question
 
Hi Helen,
this is a fairly simple method to do what you want. There are more
complex methods to browse each folder in a directory, but this should
get you pointed in the right direction:

Dim folderDate, myDir, myFile, myDirFile As String
'myDir = the directory where the date folder lies
'with folderDate you will need whatever logic
'to derive the naming methodoligy
'myFile = "yourfilename.xls"
myDirFile = myDir & "\" & folderDate & "\" & myFile
Workbooks.Open Filename:=myDirFile, UpdateLinks:=0

If you need more help with the date folder logic please post more
information on the convention used to name it and when the date folder
is added / changes.
HTH--Lonnie M.


Tom Ogilvy

Working with directories question
 
Do you not know where the month folder is?

if you do

sPath = "C:\mysubfolder1\mysubfolder2\" & format(Date,"mmmm") & "\"

workbooks.Open sPath & Format(Date,"yyyymmdd.xls")

Adjust the Format(Date, . . . ) part to reflect the naming convention for
your file.

--
Regards,
Tom Ogilvy




"Helen" wrote in message
...
I would like to have amacro that follows a path until it gets to the

"Month"
Subfolder. At this point it would check the month against the month in the
folder name and open the releated subfolder where a file will exist that

I
would open in much the same way.

Is it possible? What do I need to get started?





All times are GMT +1. The time now is 11:33 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com