Examples for VBScript MS-Office App Creator: insertSheet

Code names and 'global' variables

The inserted sheet's code names value is set (here: shOne and shTwo):

The sheet name itself is assigned

create.wsf

<job>
<script language="VBScript" src="..\..\..\TF\DWH_DM_RISKFINANCE\lib\VBA\VBScript-App-Creator\create-MS-Office-App.vbs" />
<script language="VBScript">

option explicit

dim wb
set wb = createOfficeApp("excel", currentDir() & "codeNameExample.xlsm")

if wb is nothing then ' {
   wscript.echo("Could not create excel Workbook.")
   wscript.quit(-1)
end if ' }

dim app  : set app = wb.application
dim sh_1 : set sh_1 = insertSheet(wb, "first sheet" , "shOne")
dim sh_2 : set sh_1 = insertSheet(wb, "Second sheet", "shTwo")

insertModule app, currentDir() & "shOne.vb", "shOne", 1
insertModule app, currentDir() & "shTwo.vb", "shTwo", 1
insertModule app, currentDir() & "func.vb" , "func" , 1

wb.save

if not compileApp(app) then
   wscript.echo("! compilation failed !")
end if

app.run "main"

' app.quit

</script> </job>

func.vb

option explicit

sub main() ' {
  '
  ' Use "global variables" shOne and shTwo to
  ' refer to the corresponding sheets.
  '
    shOne.cells(2,2) = "This value was inserted by main()"
    shTwo.cells(2,2) = "The name of shOne is " & shOne.name

end sub ' }

shOne.vb and shTwo.vb

option explicit

private sub worksheet_activate()
    debug.print "Sheet one was activated"
end sub

option explicit

private sub worksheet_activate()
    debug.print "Second sheet was activated"
end sub