时髦的饼干可以创建新的wsf文件，并在java中调用。
jobid=' copy sheet ' reference guid=' { 00020905-0000-0000-c000-000000046 } ' comment=' ms word 2000标签库， '/script language=' VBScript ' optionexplicitdimhexdict，I，j， sheetindexhexdict=' 0123456789 abcdef ' if wscript.arguments.count2then msgbox ' usage 3360 copysheetvsd . ' wscript.quit excelfileexcel _ path=wscript.arguments (0) excelFile=WScript.Arguments(1)1) setexlapp=createobject ) excecel thensetexlapp=getobject (excel.application ) ) End If Dim fs，f，f1，FCS ETFs=createobject (scripting.file stem object ) 输入'在括号中指定的目录setfc=f.d rdlc=e xlapp.workbooks.adde xlbook2. saveasexcelfilej=1foreach f1 infc '合并的工作簿shh oreachwsinexlbook.sheetssetexlsheet=exl book.worksheets (sheet索引) )。 e xlapp.display alerts=falseexlsheet.copyexlbook2. sheets (j ) j=J1 sheet index=sheet index1nextexlbook.close ' f1.deletenextfori=exl book2.sheets.counttojstep-1 exl book2.sheet sheet=nothingsetexlbook2=nothingsetexlbook=nothingsetexlapp=nothing/s ching