操作excel时有个打开文件的窗口，假如vba里面用Application.Dialogs(xlDialogOpen).Show打开桌面上名为“test.xls”的文件，如何设置一个字符串获得“test.xls”的路径。
第1个回答 2012-03-02
Dim Filename As Variant
Filename = Application.GetOpenFilename("Excel Files (*.xls), *.xls", Title:="请选择文档：", MultiSelect:=True) 'MultiSelect:=True 这里的true就可以同进选择多个文件，是FALSE就只能选一个。
Filename = Application.GetOpenFilename("Excel Files (*.xls), *.xls", Title:="请选择文档：", MultiSelect:=True) 'MultiSelect:=True 这里的true就可以同进选择多个文件，是FALSE就只能选一个。
第2个回答 2012-02-23
S=activeworkbook.Path & "\" & activeworkbook.Name
或
S=workbooks("test.xls").Path & "\" & workbooks("test.xls").Name追问
或
S=workbooks("test.xls").Path & "\" & workbooks("test.xls").Name追问
谢谢啊，这个问题我已经解决了。有没有方法打开windows通用窗口啊，可以选择多个文件，并且将返回文件路径放到一个数组里面。这样我就可以同时操作多个文件了
本回答被网友采纳