VBA两种打开文件窗口的方式

第一种

获取文件夹路径，返回完整路径

	Dim	Fso, Fld	'定义文件路径
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Fld = Fso.getfolder(CreateObject("Shell.Application").BrowseForFolder(0, "请选择路径", 0, "").Self.Path & "")

效果如下

返回完整路径

第二种

获取文件路径，返回文件完整路径

	Dim Fld 
    Fld = Application.GetOpenFilename("Excel 文件,*.xls;*.xlsx;*.xlsm")

效果如下

返回的是完整的路径

结语

以上。
目前我是用这两种方法，一种获取文件夹路径，一种获取Excel文件路径。