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

andymalan

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

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
30,568
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
30,568
Office Version
365
Platform
Windows
You're welcome & thanks for the feedback
 

andymalan

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

Forum statistics

Threads
1,078,504
Messages
5,340,763
Members
399,394
Latest member
farlow

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...
Top