Excel- как получить путь к файлу

' grabbed from Help file
Public Function GetAnyFileName(ByVal ftypes As String, fileext As String) As String
    'Declare a variable as a FileDialog object.
    Dim fd As FileDialog
    'Create a FileDialog object as a File Picker dialog.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    'Declare a variable to contain the path
    'of each selected item. Even though the path is a String,
    'the variable must be a Variant because For Each...Next
    'routines only work with Variants and Objects.
    Dim vrtSelectedItem As Variant
    Dim lngCount As Long
    'Use a With...End With block to reference the FileDialog object.
    With fd
        'Add a filter that includes GIF and JPEG images and make it the first item in the list.
        .Filters.Add ftypes, "*." & fileext, 1
         .AllowMultiSelect = False
        .InitialFileName = ThisWorkbook.Path & "\"
        'Use the Show method to display the File Picker dialog box and return the user's action.
        'If the user presses the action button...
        If .Show = -1 Then
            'Step through each string in the FileDialogSelectedItems collection.
            For Each vrtSelectedItem In .SelectedItems
                'vrtSelectedItem is a String that contains the path of each selected item.
                'You can use any file I/O functions that you want to work with this path.
                'This example simply displays the path in a message box.
                GetAnyFileName = CStr(vrtSelectedItem)
            Next vrtSelectedItem
        'If the user presses Cancel...
        Else
        MsgBox "Did you forget something?"
        End If
    End With
    'Set the object variable to Nothing.
    Set fd = Nothing
End Function
Sub test()
Dim exFileName As String
exFileName = GetAnyFileName("All Files", "*")
MsgBox "You selected " & exFileName
End Sub