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

andymalan

Board Regular
Joined
Feb 22, 2017
Messages
65
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?

Code:
 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
 

Some videos you may like

Excel Facts

Can you AutoAverage in Excel?
There is a drop-down next to the AutoSum symbol. Open the drop-down to choose AVERAGE, COUNT, MAX, or MIN

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
35,853
Office Version
365
Platform
Windows
Try changing this
Code:
ChDir ThisWorkbook.Path
to
Code:
ChDir strFileName
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
35,853
Office Version
365
Platform
Windows
You're welcome & thanks for the feedback
 

andymalan

Board Regular
Joined
Feb 22, 2017
Messages
65
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
 

Watch MrExcel Video

Forum statistics

Threads
1,089,941
Messages
5,411,393
Members
403,366
Latest member
schurst44

This Week's Hot Topics

Top