操作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通用窗口啊,可以选择多个文件,并且将返回文件路径放到一个数组里面。这样我就可以同时操作多个文件了
本回答被网友采纳