FileToOpen From Specific Directory

[Ark68]

I have this code below which allows a user to select a file. How can I modify it so that the selection comes from a specific directory?

    FileToOpen = Application.GetOpenFilename(Title:="Raw ActiveNet Files", FileFilter:="active_report_(*.xls*),*xls*")
    
    If FileToOpen <> False Then
        Set OpenBook = Application.Workbooks.Open(FileToOpen)
        ActiveWindow.Visible = False

 

[Jeffrey Mahoney]

This is how I do it.

PSRPath = SETUP.Range("PSRTxtFileLoc").Value
  ChDrive Left(PSRPath, 3)
  ChDir PSRPath
    
  v = Application.GetOpenFilename("Text Files (*.txt), *.txt", 1, "Select the Period Structure Text File")
  If v = False Then Exit Sub

 

[JEC]

How about

Sub jec()
 Dim wb
 With Application.FileDialog(3)
   .Filters.Clear
   .Filters.Add "Excel Files", "*.xlsx; *.xlsm"
   .InitialFileName = "C:\Users\xxxxx\Downloads\"
    If .Show = 0 Then Exit Sub
    Set wb = Workbooks.Open(.SelectedItems(1))
 End With
End Sub

 

[Ark68]

Thank you both for your support.

Jeffrey, it's possible I misunderstood how your code work. It looked to me that it was as simple as just changing the directory, however, with this assumption, I wasn't able to get that to happen.

    anpath = "D:\Projects\AppSheet Sports 2024\Raw_Activenet\"
    Application.ScreenUpdating = False
    ChDir anpath

JEC, your solution did provide the results while introducing me to a new process (File Dialogue). I will have to Google it to understand it further.

 

[Jeffrey Mahoney]

If the drive is not the same as the default, you'll need to change that with ChDrive

CHDrive "D:\"