VBA 浏览文件夹

Private Function SelectFolder() As String
   
    With Application.FileDialog(msoFileDialogFolderPicker)
   
        If .Show = True Then
       
            SelectFolder = .SelectedItems(1)
        Else
            SelectFolder = ""
        End If
       
    End With
    
End Function

VBA 浏览文件夹

原文：http://www.cnblogs.com/lbnnbs/p/4785001.html