Как отобразить диалоговое окно, позволяющее выбрать нужную папку?

Категория: Basic

2012-07-27 13:48:28

Для того, что отобразить диалоговое окно, с помощью которого можно выбрать необходимую папку и получить полный путь к этой папке, можно использовать объект FileDialog, который впервые появился в MS Office XP.

code: #vba

Private Sub GetSelectedFolder()
    With Application.FileDialog(msoFileDialogFolderPicker)
         .AllowMultiSelect = False
         .Show
         If .SelectedItems.Count = 1 Then
            iPath = .SelectedItems(1) '.InitialFileName
            MsgBox "Выбрана папка : " & iPath, vbExclamation, ""
         Else
            MsgBox "Выберите нужную папку", vbCritical, ""
         End If
    End With
End Sub

code: #vba

Private Sub GetSelectedFolder()
    With Application.FileDialog(msoFileDialogFolderPicker)
         '.AllowMultiSelect = False
         If .Show = True Then
            iPath = .SelectedItems(1) '.InitialFileName
            MsgBox "Выбрана папка : " & iPath, vbExclamation, ""
         Else
            MsgBox "Выберите нужную папку", vbCritical, ""
         End If
    End With
End Sub

Актуально для MS Excel XP

Поделиться:

Sample Code

категории

Как отобразить диалоговое окно, позволяющее выбрать нужную папку?

Похожие статьи: