xls-resetExcelSheet.wsf

<job>
<script language="VBScript" src="../VBS-MS-Office-App-Creator/create-MS-Office-app.vbs" />
<script language="VBScript">

   option explicit

   dim app
   dim xls
   set xls = createOfficeApp("excel", currentDir() & "created.xlsm")
   if xls is nothing then ' {
      wscript.echo "Could not create excel worksheet."
      wscript.quit -1
   end if ' }

   set app = xls.application

   insertModule app, currentDir() & "../../Office/ExcelHelpers.vb" , "ExcelHelpers" , 1
   insertModule app, currentDir() & "../../Common/Collection.vb"   , "coll"         , 1
   insertModule app, currentDir() & "xls-resetExcelSheet.vb"       , "func"         , 1

   app.run "main"

   xls.save

   wscript.echo "The end"
   createObject("WScript.Shell").appActivate(app.caption)

</script> </job>