'==================================================================

'==================================================================

'Диалог выбора файда с сохренением последнего выбранного пути

'==================================================================

Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _

Optional ByVal InitialPath As String = "c:\", _

Optional ByVal FilterDescription As String = "Файлы счетов", _

Optional ByVal FilterExtention As String = "*.*") As String

On Error Resume Next

With Application.FileDialog(msoFileDialogOpen)

.ButtonName = "Выбрать": .Title = Title:

.InitialFileName = GetSetting(Application.Name, "GetFilePath", "folder", InitialPath)

' .InitialFileName = GetSetting(Application.Name, "GetFilePath", "folder", ThisWorkbook.Path & "\")

.Filters.Clear: .Filters.Add FilterDescription, FilterExtention

If .Show <> -1 Then Exit Function

GetFilePath = .SelectedItems(1)

'Сохраняем последний выбранный путь

folder$ = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))

SaveSetting Application.Name, "GetFilePath", "folder", folder$

End With

End Function

'==================================================================