looking up a file and getting the file path in vba

Question

I am working on an access database, and want to create a button that will open up a file explorer, where a user can look for a file, and when they click it, the path will be saved.

To put the database in perspective, my company works with many vendors, and each of them sends us prices in different formats (pdf, excel, word, etc.). So I want the users of the database to be able to look up a vendor, and easily have access to their prices (some of which change quarterly, so it is easier to just change the file instead of putting the prices in the database and updating it there).

Any help would be greatly appreciated.

Use [Application.FileDialog](http://stackoverflow.com/a/9477733/77335) to let the user choose a file. — HansUp, Feb 13 '15 at 03:27
Once I've clicked the file though, how do I get the path to that file? — user3562355, Feb 13 '15 at 03:57
In the example I linked, the full path is returned by `.SelectedItems(1)` — HansUp, Feb 13 '15 at 04:00

score 0 · Accepted Answer · answered Feb 13 '15 at 10:34

Try this....

Sub sheet_dialogue_box()

Dim intChoice As Integer
Dim strPath As String


Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

intChoice = Application.FileDialog(msoFileDialogOpen).Show

If intChoice <> 0 Then
    strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    Application.Workbooks.Open (strPath)
End If

End Sub

looking up a file and getting the file path in vba

1 Answers1