VBA用内置对话框获得文件夹的路径

标签：creat   for   路径   else   对话框   目录   对话   ica   ati   

Sub 文件夹路径()
Dim fp$, obmapp As Object
Set obmapp = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件目录：", 0, 0)
If Not obmapp Is Nothing Then
fp = obmapp.Self.Path & ""
Else
Exit Sub
End If
MsgBox fp
End Sub

VBA用内置对话框获得文件夹的路径

标签：creat   for   路径   else   对话框   目录   对话   ica   ati   

原文地址：https://www.cnblogs.com/zhujie-com/p/11695608.html