FileSet = Application.GetOpenFilename(FileFilter:="Excel 2003(*.xls),*.xls,Excel 2007(*.xlsx),*.xlsx", _
MultiSelect:=True, Title:="选择要合并的文件")
If TypeName(FileSet) = "Boolean" Then
GoTo ExitSub
上述语句只能选择*.xls或者*.xlsx文件,如何修改可以同时选择*.xls和*.xlsx?谢谢!
FileSet = Application.GetOpenFilename(FileFilter:="Excel 2003或者Excel 2007,*.xls*", _
MultiSelect:=True, Title:="选择要合并的文件")
这样试试
|