vba中的OpenFileDialog，以字符串的形式返回目录

Question

我一直在寻找无处不在，我很惊讶，这不是VBA中的一个函数。

我需要一个函数，当被调用时，打开一个文件对话框，用户可以在其中选择1个文件（不多于1个），然后函数以字符串的形式返回文件的位置（包括文件名+扩展名）。

起初我以为：“怎么努力也即是，在I'ts VB.NET非常简单。”

提前感谢！

Answer 1

你的意思是像htis？如果AllowMultiSelect是True

下面是另一个例子，如果仅存在一个文件

Sub Sample() 
    Dim ofD As Object 
    Dim Fil 

    Set ofD = Application.FileDialog(3) 

    ofD.AllowMultiSelect = False 
    ofD.Show 

    For Each Fil In ofD.SelectedItems 
     MsgBox Fil 
    Next 
End Sub 

上面For循环是有用的。

Sub Sample() 
    Dim ofD As Object 
    Dim Fil 

    Set ofD = Application.FileDialog(3) 

    ofD.AllowMultiSelect = False 

    If ofD.Show = False Then 
     MsgBox "User Pressed Cancel" 
    Else 
     MsgBox ofD.SelectedItems(1) 
    End If 
End Sub 

Answer 2

本周早些时候，我有同样的问题在这里我使用的解决方案。

http://www.mrexcel.com/forum/excel-questions/294728-browse-folder-visual-basic-applications.html

希望它可以帮助你。