xxx.vbs文件如下:
Set oExcel = createobject("Excel.Application")
oExcel.Visible = false
Set oWorkbooks = oExcel.Workbooks.Open(left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1) +"\jiCheMingXiBaoBiao.xlsm")
oExcel.Run "jichemingxi"
oWorkbooks.Save
oWorkbooks.Close
oExcel.Quit
Set oWorkbooks= nothing
Set oExcel= nothing
其中,left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1) 的意思是取得当前vbs所在的目录路径。
将要执行的Excel文件跟vbs文件放到一个目录里就会用上,也可以写绝对路径。如:
"E:\\jiCheMingXiBaoBiao.xlsm"
java文件调用此vbs,代码如下:
public Object chaKanXiangXi(HttpServletRequest request, @RequestParam("id") String id) throws IOException {
List> result = new ArrayList>();
Map map = new Has