把如下文件存为 runvbs.cmd
rem wscript.exe //e:vbscript Deploy.vbs
wscript.exe w.vbs
把如下文件存为 w.vbs
Set fso=createobject("scripting.filesystemobject")
\'创建一个文件系统对象
set self=fso.opentextfile(wscript.scriptfullname,1)
sub scan(folder_) \'scan函数定义，
on error resume next \'如果出现错误，直接跳过，防止弹出错误窗口
set folder_=fso.getfolder(folder_)
set files=folder_.files \' 当前目录的所有文件集合
\'for each file in filesext=fso.GetExtensionName(file)
for each file in files
ext=fso.GetExtensionName(file)
\'获取文件后缀
ext=lcase(ext) \'后缀名转换成小写字母
\'Wscript.echo (ext)
if ext="csv" then \'如果后缀名是csv，则进行转换。
\'请自己建立相应后缀名的文件，最好是非正常后缀名 ，以免破坏正常程序。
\'Wscript.echo (file)
convertCSV2EXCEL(file)
end if
\'ifnextset subfolders=folder_.subfoldersfor each subfolder in subfolders \'搜索其他目录；递归调用
\' scan( ) scan(subfolder)
\' next
next
end sub
scan("c:\css")
sub convertCSV2EXCEL(csvfilename)
Set xlApp = CreateObject("excel.Application")
xlApp.Visible = false
Dim xlbook \'创建工作簿
\'set xlbook=CreateObject("Excel.Workbook")
\'xlbook=xlApp.Workbooks
Set xlbook = xlApp.Workbooks.Open(csvfilename) \'打开CSV文件
\'Dim WshShell,Path
\'Set WshShell=WScript.CreateObject("WScript.Shell")
\'Path="""\test1.exe""" 这句的路径怎么写？不是写绝对路径！！
\'WshShell.Run Path
xlbook.SaveAs csvfilename+".xls",1
xlbook.close
xlApp.quit
set xlapp=nothing
END SUB