Question

vba,怎么实现通过文件夹对话框选择想要选择的文件夹

其文件夹,或者子文件夹含有*.txt文件,即被选择
当文件夹,或者子文件夹含有*.txt文件时,如图所示的文件夹对话框中打开处于enabled状态,
否则,unenabled

Answer 1

代码如下：

Sub GetFile()
    Dim FolderPicker As Object
    Dim FilePath As String
    Set FolderPicker = Application.FileDialog(msoFileDialogFilePicker)
    With FolderPicker
        .Filters.Clear
        .Filters.Add "文本文件", "*.txt"
        If .Show = -1 Then
                FilePath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
End Sub

Answer 2

用Dialog.Show 方法

追问

有具体的步骤么,thx u