MyTetra Share
Делитесь знаниями!
GetFilePath - Диалог выбора одного файла
16.03.2019
23:43
Текстовые метки: FileDialog, mso
Раздел: !Закладки - VBA - GetOpen

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

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

'Диалог выбора файла

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

Function Get_Open_File() As String 'Выбор файла для обработки

' Call Create_Catalogs

Dim oFD As FileDialog

Dim x, lf As Long

'Открыть диалог выбора файла

Set oFD = Application.FileDialog(msoFileDialogFilePicker)

With oFD 'используем короткое обращение к объекту

.AllowMultiSelect = False

.Title = "Выбрать файлы отчетов" 'заголовок окна диалога

.ButtonName = "Выбрать файлы Excel"

.Filters.Clear 'очищаем установленные ранее типы файлов

.Filters.Add "Excel files", "*.xlsx*;*.xls*", 1 'устанавливаем возможность выбора только файлов Excel

.FilterIndex = 1 'устанавливаем тип файлов по умолчанию - Text files(Текстовые файлы)

.InitialFileName = Folder_Path '& "nonSSARDetail" '"C:\Temp\Книга1.xlsx" 'назначаем папку отображения и имя файла по умолчанию

.InitialView = msoFileDialogViewDetails 'вид диалогового окна(доступно 9 вариантов)

If .Show = 0 Then Exit Function 'показывает диалог

Get_Open_File = .SelectedItems(1) 'считываем полный путь к файлу

File_Open_Path = .InitialFileName 'считываем папку с файлом

'Workbooks.Open x 'открытие книги


End With

End Function

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

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования