Set f = Application.FileDialog(1)
     On Error Resume Next
With f
        .AllowMultiSelect = True
        .Show
        .Title = "Выберите файл Excel для зайгрузки"
        If f.Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1)
        PS = f.PathSeparator
End With