Диалоговое окно для выбора папок с указанием папки

' Declare Option Constants
Const BIF_returnonlyfsdirs   = &H0001
Const BIF_dontgobelowdomain  = &H0002
Const BIF_statustext         = &H0004
Const BIF_returnfsancestors  = &H0008
Const BIF_editbox            = &H0010
Const BIF_validate           = &H0020
Const BIF_browseforcomputer  = &H1000
Const BIF_browseforprinter   = &H2000
Const BIF_browseincludefiles = &H4000
 
Function Browse4Folder(strPrompt, intOptions, strRoot)
    Dim objFolder, objFolderItem, objShell
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0, strPrompt, intOptions, strRoot) 
    If (objFolder Is Nothing) Then
        Browse4Folder = ""
    Else
        Set objFolderItem = objFolder.Self
        Browse4Folder = objFolderItem.Path      
        Set objFolderItem = Nothing
        Set objFolder = Nothing
    End If  
    Set objShell = Nothing
End Function
 
strPrompt = "Please select the folder to process."
intOptions = BIF_RETURNONLYFSDIRS + BIF_EDITBOX + BIF_NONEWFOLDER
 
' Return the path, e.g. C:\
strFolderPath = Browse4Folder(strPrompt, intOptions, "")
msgbox strFolderPath

With CreateObject("Shell.Application")
   Dim dlgBrowse : Set dlgBrowse = .BrowseForFolder(0, "Некий текст", 0, "C:\Windows")
End With

Sub Folder()
Dim intResult As Integer
Dim strPath As String
 
'changes the folder dialogs title
Application.FileDialog(msoFileDialogFolderPicker _
    ).InitialFileName = "C:\windows"
'the dialog is displayed to the user
intResult = Application.FileDialog(msoFileDialogFolderPicker).Show
'checks if user has cancled the dialog
If intResult <> 0 Then
    'dispaly message box
Call MsgBox(Application.FileDialog(msoFileDialogFolderPicker _
    ).SelectedItems(1), _
    vbInformation, "Selected Folder")
End If
 
End Sub

Option Explicit
Const msoFileDialogFolderPicker = 4
Const xlMinimized = -4140
 
Dim objExcel, result
 
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.WindowState = xlMinimized 
With objExcel.FileDialog(msoFileDialogFolderPicker)
   .InitialFileName = "C:\windows"
    If .Show = True Then
        result = .SelectedItems(1)
    End If
End With
 
objExcel.Quit
Set objExcel = Nothing
 
msgbox result