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

andymalan

Board Regular
Joined
Feb 22, 2017
Messages
128
Office Version
  1. 365
  2. 2007
Platform
  1. Windows
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
 

Excel Facts

Excel Wisdom
Using a mouse in Excel is the work equivalent of wearing a lanyard when you first get to college
Try changing this
Code:
ChDir ThisWorkbook.Path
to
Code:
ChDir strFileName
 
Upvote 0
You're welcome & thanks for the feedback
 
Upvote 0
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
 
Upvote 0

Forum statistics

Threads
1,223,703
Messages
6,173,944
Members
452,539
Latest member
delvey

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top