Present a user with drop-down menu of directories, to choose a file to open

[andymalan]

Dear Learned people,
the following code is meant to present a user with the opportunity to be able to select a file that is in the folder "01_ElementLists". currently the code only takes the user to the list of files residing on the desktop, and the user must then know what the path to the file is.
what can be changed /added to the code, to let the user go directly to the '01_ElementLists' folder?

 Dim wkb2 As Workbook    Dim UsersName As String
       
    UsersName = Environ("USERNAME")
    strFileName = "C:\Users\" & UsersName & _
    "\Desktop\Excalibur Winner\ExcaliburProPlus\01_ElementLists"
    ChDir ThisWorkbook.Path
    FileFilter = "Excel 2003 (*.xls),*.xls," & _
                 "Excel 2007 > (*.xlsx),*.xlsx," & _
                 "All Excel Files (*.xl*),*.xl*," & _
                 "All Files (*.*),*.*"
    strFileName = Application.GetOpenFilename(FileFilter, 4, "Select One File To Open")
    
Set wkb2 = Workbooks.Open(strFileName, False, False)[code]

your help is always appreciated.
best regards
Andy PegLeg

 

[Fluff]

Try changing this

ChDir ThisWorkbook.Path

to

ChDir strFileName

 

[andymalan]

Dear Fluff
thank you so much, that works well.

best regards.

 

[Fluff]

You're welcome & thanks for the feedback

 

[andymalan]

Dear Fluff
I posted this dilemma but no takers, can you please help?

Hello brainiacks, (said with utmost respect). Please help with my problem:

I have some code in a workbook named configureData.xlsm that creates a filename in Q2 .
I want to open a new workbook.xlsx and save it with the fileName created.

The path would always be the same:

UsersName = Environ("USERNAME")
strFileName = "C:\Users" & UsersName & _
"\Desktop\Excalibur Winner\configureData.xlsm\NewFileName.xlsx"

but the NewFileName will change depending on the data used by the code when creating the filename and storing it in Q2. (the filename is created based on a customer name and his quote number)
Your help will be appreciated hugely.

kind regards
Andy

 

[Fluff]

In future please do not duplicate questions.
Answers to this question must remain in the original thread https://www.mrexcel.com/forum/excel-questions/1113820-save-workbook-name-generated-excel-data.html