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

希望它可以幫助你。