ник: FORMAT
Вот пример использования FileDialogOpen
Этот код можно повесить на кнопку Browse
' Определение пути таблицы Excell
Dim FName As String
Dim result As Integer
With Application.FileDialog(1)
.Title = "Поиск таблицы Excell"
.ButtonName = "Добавить"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "All", "*.*", 1
result = .Show
' Закоментированный фрагмент не дает возможности выйти пока не загрузится файл
'******************************************************************************
'If result = 0 Then
'Do Until (result <> 0)
'MsgBox ("Необходимо внести файл в базу")
'result = .Show
'Loop
'End If
'*********************************************************************************
FName = Trim(.SelectedItems.Item(1))
End With