VBA to Open Folder

[mayoung]

I am creating a custom addin how would you open just a folder

The folder path would be: C:\User\ myoung\dowloads. The myoung would be the persons computer this particular folder path is for. But several people want this addin in on there computer in excel. My question is, is there away to make a path so the VBA gets to the download folder of the persons which the addin is installed on or does each different folder path have to be set up? Or is there a work around for this?
I have the below three examples for opening a file, but how can this code be changed to open a folder?

Workbooks.Open ("C:\Users\myoung\OneDrive - Bobcat Enterprises Inc\Downloads\DataminerFile.xml")

Path = "C:\Users\" & Environ("username") & "\OneDrive - Bobcat Enterprises Inc\Downloads\DataminerFile.xml"

MyPath = Environ("userProfile") & "\OneDrive - Bobcat Enterprises Inc\Downloads\Dataminer.xml"

 

[Fluff]

How about

Sub mayoung()
   Dim Fname As String
   
   With Application.FileDialog(3)
      .InitialFileName = Environ("Userprofile") & "\Downloads\"
      .AllowMultiSelect = False
      If .Show Then Fname = .SelectedItems(1)
   End With
   Workbooks.Open Fname
End Sub

 

[mayoung]

How about

Sub mayoung()
   Dim Fname As String
   
   With Application.FileDialog(3)
      .InitialFileName = Environ("Userprofile") & "\Downloads\"
      .AllowMultiSelect = False
      If .Show Then Fname = .SelectedItems(1)
   End With
   Workbooks.Open Fname
End Sub

Fluff Thank You.. So much to learn and never ending possibilities..

 

[Fluff]

You're welcome & thanks for the feedback.

 

[mayoung]

You're welcome & thanks for the feedback.

Would you know how to manipulate this code. Just Curious for future use if drive letter changes?

Path = "C:\Users\" & Environ("username") & "\OneDrive - Bobcat Enterprises Inc\Downloads\"

 

[Fluff]

The users folder should be on the C drive, so why would it change?

 

[mayoung]

Fluff Thank You.. So much to learn and never ending possibilities..

I tried the code and it works great except when I choose a .pdf file for example it wants to open it in excel instead of a pdf?

 

[Fluff]

That's because the code is designed to open a workbook, not a pdf.

 

[mayoung]

That's because the code is designed to open a workbook, not a pdf.

Is there anyway to make more universal?

 

[Fluff]

How about

Sub mayoung()
   Dim Fname As String
   
   With Application.FileDialog(3)
      .InitialFileName = Environ("Userprofile") & "\Downloads\"
      .AllowMultiSelect = False
      If .Show Then Fname = .SelectedItems(1)
   End With
   ActiveWorkbook.FollowHyperlink Fname
End Sub