|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
on error resume NextSet objDialog=CreateObject("UserAccounts.CommonDialog")objDialog.Filter="仅支持xls格式文件|*.xls"objDialog.InitialDir="C:\"intResult=objDialog.ShowOpenIf intResult=0 ThenWscript.QuitElseIf Right(objDialog.FileName,3)="xls" ThenWscript.Echo objDialog.FileNameElseWscript.Echo "你选择的文件格式不支持"Wscript.QuitEnd IfEnd If |
VBS 文件选择框,选择Excel文件,布布扣,bubuko.com
原文：http://www.cnblogs.com/jinjiangongzuoshi/p/3834639.html